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CHAPTER | 
INTRODUCTION TO 
COMBAT || 


A. INTRODUCTION 


Assessment of military capability is very much an art requiring careful 
judgments by seasoned military and civilian professionals. These judgments 
can never be supplanted. They can, however, be greatly facilitated and im- 
proved through the availability of selected quantitative measures and assess- 
ments. The discipline of developing mathematical descriptions of physical 
processes is referred to as modeling. If properly used, quantitative models 
can be useful adjuncts to defense decision making. 

In fact, as issues become more complex and as the number of individuals 
involved in the decision process increases, it becomes ever more necessary 
to tie the dialogue into a logical structure and format. The utility of 
models in meeting this need depends directly on the extent to which they 
can provide insights into the problem, and the understanding that analysts 
and users have of the role mathematical models may play in decision making. 

The purpose of this chapter is to provide the potential user a summari- 
zation of the operation, strengths, limitations, and computer software char- 


acteristics of the COMBAT-I1 model. 


B. MODEL OVERVIEWS 


COMBAT-I! is a computerized model portraying two-sided simultaneous air 
and ground combat at the theater level. The model has the capability of por- 
traying conventional nuclear, or mixed combat interations. It may be char- 


acterized as an aggregated, quick running, expected value model providing 
insights into the effects of alternative resource allocation policies. 


The model provides an option for the modification of both combat vari- 


ables, such as probabilities of kill, and operational variables, such as 


Ane eens a ee 2 


scaling factors, at user selected times during the simulated conflict. In 
addition, a number of output options are available providing both graphical 
and tabular displays of the conflict results. 

The COMBAT-!! model was developed for the Defense Nuclear Agency. It 
has evolved into two versions, one of which focuses on airborne weapon systems 


and the other of which focuses on artillery weapon systems. 


Re FUNCTIONAL DESCRIPTION 


We Overview of the Model Characteristics 


As shown in Figure I-1, the COMBAT-I! model portrays three fronts 


and a rear area for each of two opposing sides, referred to as RED and BLUE. 
Frontal entities include ground force packets, supply packtes, artillery and 
| their associated munitions, and frontal surface-to-~surface missiles and their 
associated warheads. The combat capabilities of a ground force packet are 
modeled as a single value reflecting the overall combat effectiveness of 

the packet. This ''notional"’ value is derived for a representative unit of 
each side and applied to al] ground force packets of that side. The size 

of each packet is considered to be a battalion for NATO forces and a regiment 
for Warsaw Pact (PACT) forces. The movement of the FEBA is based on the 
relative combat effectiveness of opposing units within their respective 
forces. 

Such impediments to movement as weather and terrain are not 
explicitly modeled. Their effects may be treated implicitly through vari- 
ation, by the user, of unit movement rates. Interaction between frontal 
forces and weapon systems takes place only within the front to which those 
forces have been allocated. Forces may, however, be withdrawn to the rear 
area for reallocation to other fronts. 

Rear area entities include ground force reserve packets, rear 
supply packets, nuclear storage sites, artillery rounds and frontal missile 
warheads, and two types of centrally controlled surface-to-surface missile 
launchers and their warheads. Ground forces, supply packets, nuclear muni- 
tions, and missiles may be allocated from the rear area to any of the three 
fronts on the basis of demands generated by the conflict activities occurring 


at those fronts. 
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in COMBAT-11 


As shown in Figure 1-2, two types of air bases, launching 
aircraft of three types, are modeled. All aircraft carry notional loads 
by munition type and side and may be allocated to either close air support, 
counter air, or interdiction. Differentiations between aircraft strike 
capabilities are absorbed in the probabilities of kill. All aircraft 
engage in air combat, with the survivors either returning to base or 
entering the ground support or interdictive roles. Aircraft may be 
assigned to any role, but only two types of aircraft ere nuclear capable. 

rae Model Versions 

The COMBAT-11 model exists as a single program containing both 
the air and artillery version. Each version requires different inputs, 
operates in a different fashion, and produces different outputs. 

The major modeling differences between the air and artillery 
versions lie in their means of treating aircraft sorties, in the number 
of frontal weapons systems modeled, in the means of nuclear delivery, and 
in the frontal weapon systems targeting mechanisms. 

In the air version, the aircraft to air base allocations are 
treated as specific numbers. This means that if fifty aircraft are inti- 
ally assigned to a particular base and thirty of those aircraft are lost 
on sorties, then twenty aircraft will return and be availabte at that base. 
The artillery version, on the other hand, treats the allocation of air- 
craft to air bases as a percentage of the total aircraft within the theater. 
1f 50% of the aircraft are initially assigned to the forward bases and 50% 
to the long range bases and thirty aircraft are lost out of a total of fifty 
sorties launched by both types of bases, then ten of the surviving aircraft 
will return to each of the base types. 

The artillery version provides three more frontal weapon systems 
than the air version. In addition, the direct targeting of frontal weapon 
systems is possible in the artillery version, but not in the air version. 

The most sianificant difference between the two models is the 


nuclear delivery mechanism provided. The air version permits a mixture of 


nuclear and conventional aircraft sorties to occur simultaneously. The 
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Figure 1-2. Diagramatic Representation of Air Combat 


artillery version, on the other hand, does not permit the mixing of nuclear 


and conventional aircraft munitions. In the artillery version, all aircraft 
that are nuclear capable may carry either conventional or nuclear munitions, 
but not both, at any one point in time. 

be Model Operations 

The interactions between various modeled entities are represented 
through the integration, over time, of approximately one hundred ordinary 
differential equations. Time histories are maintained detailing the numbers 
and relative locations of units, targets killed by type, condition and 
status of the supply flows, deployments, and attritions due to enemy source 
by type. 

The COMBAT-1I1 model utilizes a highly efficient self correcting 
integration algorithm that achieves simulation time discriminations of 
less than one hour. This very fine time discrimination is necessary to 
resolve the rapid changes that take place in combat unit states during 
the nuclear release phases of a conflict. 

The primary set of equations upon which attiritions, both nuclear 
and conventional, are based is a Lanchester Square Law formulation. Enhance- 
ments to the formulation have been made to represent such effects as the 
attrition caused by indirect fire from conventional and nuclear weapon 
systems. Both RED and BLUE calculations are performed using the same 
equations, with variations between the characteristics of the two sides 


introduced through the user input variable values. 


D. UTILIZATION OF COMBAT-1 | 


For any model, there exists both a right way and a number of wrong 
ways to utilize the model. COMBAT-I! was designed to examine certain 
specific elements and. processes involved in a combat situation. The model 


was not designed to predict outcomes in absolute terms but to show the rel- 


ative effects of various allocation policies over time. 
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iz Analytic Capabilities of COMBAT-I1 


(1) The model is designed to provide an overview of the results 
of theater level mixed combat exchanges. Specifically, 
the attrition caused and received by each combat system 
may be analyzed, and theater sensitivities to supply and 
reinforcement quantities and rates may be identified. 

(2) The model may be used to explore the rate of expenditure 
of high value (including nuclear) systems under differing 
policies and conditions. 

(3) The sensitivity of weapon system attrition to acquisition 
factors, launch rates, and kill factors may examined. 

(4) The sensitivity of the conflict to mobilization times 
may be determined. 

(5) The impact of variations in nuclear release times may be 
analyzed. 

(6) The significance of alterations in target allocation 
rules and strategies of weapons employment may be studied. 

(7) Alternative distributions of stockpiled weapons for both 
BLUE and RED may be evaluated in terms of the impact on 
the theater level outcome. 

(8) The effects of various MBFR alternatives may be studied. 

(9) The relative overall force balance in Europe can be evaluated. 

(10) The potential payoffs of new or proposed systems may be 
examined to determine what weapons characteristics will 
have a significant effect on the: conflict outcome. 

(11) The impacts of various tactical air bed-down and dispersion 
locations may be assessed. 

Ze Analytic Limitations of COMBAT-I| 

(1) The worst mistake that could be made in using COMBAT-I1! would 
be to interpret the results as precisely accurate predictions. 
The model indicates relative trends, not mwint values. In 


other words, the model must not supplant judgment. 


ue 


(2) Detailed studies of the logistics net are not possible. 
The impact of supply stockpiles and flow rates can be 
assessed, but the details of the physical supply lines 
are not available. 

(3) A comparison of NATO to U.S. capabilities is not practical 
with COMBAT-I1, nor is a differentiation among the various 
national components of PACT units. This is because such 
quantities as supply consumption rates and acquisition 
factors are defined by side on a theater wide basis rather 
than by front. 

(4) The COMBAT-1! air version does not permit examination 
of the attrition contribution of conventional artillery. 
In addition, only one type of nuclear artillery is modeled 
explicitly in the air version. A higher resolution of the 
contribution of nuclear/conventional artillery is, however, 
available in the COMBAT-II artillery version. 

(5) The effects of collateral damage cannot be assessed nor 
is the amount of collateral damage which occurs calculated 
in the present version of COMBAT-II. 

(6) The effects of delayed casualties, on the conflict are not 
treated and no inferences regarding delayed casualties 
should be drawn. 

(7) The 3 process is not explicitly modeled, therefore studies 


of the flow of information cannot be made. 


Ee SOFTWARE AND OPERATING CONSIDERATIONS 


Ue Program 


COMBAT-I! has been partitioned into four major modules. These 


four modules are of a preprocessor, the simulation model, and two post- 


processors. 


The preprocessor provides a means of documenting the values that 
are input, and is the vehicle whereby major revisions in the input data base 
values may be accomplished. It is not essential either for model operation 
or for output development after the initial data base has been created. 

The model consists of one main routine and twelve subroutines. 

The model contains the code for both the air and artillery versions of 
COMBAT-I|. The two versions are separate subroutines each with its own in- 
put subroutine. The remainder of the subroutines consist of various utility 
subroutines and the integration subroutine. 

The two postprocessors accept a file generated by the model. One 
postprocessor provides tabular listing of user selected systems over user 
selected time spans. The tables present groups of values detailing a 
particular weapon system or force status at a time step. 

The second postprocessor provides the user with the capability 
of plotting user selected variables over time, with as many as fourteen 
variables shown on a single plot. 

The options and input requirements for utilizing the COMBAT-I| 
software are detailed in Chapter IV of this manual. 

Ze Operating Considerations 

The COMBAT-I! model requires a maximum of three permanent files 
to operate. The preprocessor and postprocessor programs require only two 
permanent files to operate. Specific file naming requirements are discussed 
in Chapter IV. A line printer, card reader and card punch are also required. 
The model requires approximately 52K words (decimal) to operate. The pre- 
processor and postprocessors require somewhat less. The system has been 
developed on a Control Date Corporation 7600 computer system using the CDC 
extended FORTRAN (Release 4.5) operating under the SCOPE 2.1 operating 


system. Normal run times are two CPU minutes or less on the CDC 7600. 
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CHAPTER || 
THEORETICAL BASIS AND CONCEPTUAL 
STRUCTURE OF COMBAT-~II 


A. INTRODUCT 1 ON 


In order for the user to properly apply the COMBAT-11 model and 
interpret its results, an understanding of the material contained in this 
chapter is essential. This chapter is aimed at explaining the fundamental 
assumptions made in development of the model, and the key mathematical 
relationships and formulations which are used by the model to compute 


attritions, FEBA movements and the like. 
B. HEURISTIC FORMULATIONS IN COMBAT-] 1} 


The primary purpose of COMBAT-II is to calculate time-dependent 
attritions of interacting combat systems at the theater level. For 
tactical missile exchanges, most aircraft interactions, and ground force 
interactions occurring over a period of a few hours, these attritions may 
be determined without considering ground unit movements. However, for 
longer periods of combat and for the examination of supply and reinforce- 
ment flows, it is desirable to include a function that specifies the rate 
of ground force advance as a function of the number and effectiveness 
of the forces on each side. There is no generally accepted theory that 
adequately explains movement as a function of the combat elements involved. 
Consequently, the relationship between movement and forces must be deter- 
mined in a heuristic fashion. Useful results are obtainable only if the 
movement equation treats each side symmetrically, and the resultant move- 
ment is not taken as an absolute measure of combat effectiveness. This 
has been dene in COMBAT-I!. The following heuristic formulations form the 


basis of force movement calculations in the model. 


Combat Capability Measures 
Let B and R stand, respectively, for the strengths of the opposing 


BLUE and RED ground forces. These force strengths represent an aggregate 
assessment of the combat capabilities of the units. Let B and R stand, 
respectively, for the attrition per hour of the BLUE and RED forces 
attributable to all causes. A heuristic measure of the relative combat 


effectiveness of the BLUE and RED forces may be taken to be: 


AR 
R 


SB 


B 


for BLUE 


AND 


OB 
B 


AR AB for RED 
— —- «ao 
R B 


By this measure, a higher relative combat effectiveness represents 
a higher relative rate of attrition for the opposing force. 
The difference in the BLUE and RED effectiveness measures, called 


the r factor, is given by: AR 


R 
BR 
R 


As a function of BLUE and RED strengths and attrition rates, r 
varies from +] when the situation is highly BLUE favorable, to -1 when the 
situation is highly RED favorable. The expression for r may be simplified 


to read: 
BAR - RAB 


r* BOE = RAS 


It can be shown that the function for r is simple, continuous, has continuous 
derivatives, varies smoothly between plus and minus | and is symmetrical. 


In this formulation r is consistent with simple Lanchester theory. 


In Lanchester theory the attrition rate of either side is taken to 
be proportional to the numerical strength of the opposing side.* In 
COMBAT-I1, however, there is no simple proportionality between ground force 
strength and attrition. Attrition may in fact be caused by interactions 
with enemy artillery or air attack for example, as well as by opposing 
ground forces. A number of variable values are necessary to calculate the 
effects of these interactions. Each of the individual elements which con- 
tributes to the attrition of a force or system is calculated separately and 
summed to obtain the total MB or AR. The model keeps track of these con- 
tributions of each individual system over time, so that it is possible to 
decompose the total attrition rate, and thus to present the contributory 
effects of each component to the user for examination. 

ae FEBA Movement 

The equation used to translate the relative combat effectiveness 
measure, r, into FEBA movement is shown in Figure II-1. This equation has 
been designed so that as the absolute value of r tends to 1, the attacking 
force should be advancing at or near the maximum possible rate i) 

When the relative combat capabilities of the opposing forces are equal, i.e., 
when B AR = R AB, neither force will be advancing since r will be zero. 

The FEBA equation was designed to agree at these points. The equation also 
has the properties that both sides are treated symmetrically and that small 
values of r produce relatively little movement. 

In the FEBA movement equation, there are two factors which 
influence the actual movement rate, the value of A and the value of we for 
BLUE and RED. 


*This assumption leads to the Lanchester Square law, i.e., R= B and 
OB = YR where @ and Y are the constants of proportionality, measures of 
BLUE and RED effectiveness. The above equation for r is then transformed 
into square law form: 


FEBA MOVEMENT RATE = X 


x =X [ra +(1-A) r>] 
max 


GRAPHIC ILLUSTRATION OF FUNCTION 


Xmax 


X 


Figure Il-1. FEBA Movement Rate Equation 


a. The coefficients of r and r? determine the shape of the 
curve. A is called the FEBA Movement Shaping Factor, and is given an input 
value which provides realistic movement rates given different values of r. 

b. The second factor is the value for an the maximum allowable 
FEBA movement rate. This is an input based on knowledge of the terrain, 
weather, etc. 

One caution should be noted when using the FEBA movement in an 
analysis. The only case in which the absolute value of r equals | is 
when one side is eliminated or its combat capability becomes zero. At this 
point B Ror RB will be zero and the r equation will reduce to | or -l. 
In a theater level simulation, this situation will normally not occur, but 


at times r may approach +1] or -1] as limits. When the value of r becomes 
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close to those limits, the FEBA movement results may be inconsistent with 
the accompanying simulation conditions. 


3. Frontal Movement and Demand-Response Relations 
The COMBAT-11 model simulates three fronts. The FEBA movement 


anes 


within fronts is dependent on the values of r and ae for each front. In 


addition, for each front and side, a fraction of the maximum rate may be 

set as the command rate for that side in that front. This results in up 

to six different command designated rates of advance. In each front, the 

actual movement rate achieved will normally be different from the commanded 

rate of movement. 
For Front 1 the RED and BLUE command rates are user chosen 

input values. This results from Front | always being the sector within 

which the principal effort is to be made by the attacking side. Fronts 

2 and 3 are secondary fronts used to maintain pressure through supporting 

attacks. Thus, the commanded rates of movement in these fronts are always }3 

coupled to Front | as some fraction of the command movement rate designated 

for Front 1. 
The command movement rates affect simulation results through the 


demand equations. They influence the demand for reinforcements and supplies 


that each frontal commander makes on his rear area. When the attained 


FEBA movement rate exceeds the command movement rate, demand can become 
negative, indicating the commaders's willingness to shift resources to the 
rear where they are then available to meet the positive demands of other 
fronts. 

Typical demand and response equations are displayed in 
Figure |I-2. In the demand equations there are two limiting factors: 

(1) A maximum allowable force density is input as a policy 
decision or as a result of geographic constraints. Thus, if the commander 
desires that his forces maintain nuclear density, that policy is implemented 
in the form of a maximum force density. The model code allows the maximum 
force density to be changed at any time-step. 

(2) A scale factor allows representation of the impact 
of mobility conditions, e.g., terrain, weather, etc. on resource movement. 

Flow equations, which respond to demand, depend on the maximum 
flow rate, another user input. When demand is positive and large, the flow 
rate approaches the maximum as long as units are available in the rear. 

The flow rate is reduced as demand becomes smaller. If demand-is negative, 
units flow from front to rear and become available for commitment to fronts 
with a positive demand. 

Examination of the equations in Figure I1-2 shows that the form of 
the demand-response equations is simple, symmetrical, and scalable. As 
in the equations for r and X, each term in the demand-response equations 
is computed separately and added to obtain total demand or response. The 
contribution of each component is retained, thereby allowing decomposition 


of the total demand and response. 
C. ROLE OF THE HEURISTIC FORMULATIONS 


The heuristic formulations discussed in paragraph B are logical 
and believed to be reasonably realistic. They are necessary elements of 
the model in that they couple the forces, attritions, resource demands, 


and expenditures together to influence the FEBA movement and other measures 
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of relative combat capability. Since the formulations are heuristic, model 


results may be used to examine trends and key interactions, but the heuristic 
formulations cannot be used to predict precise real world outcomes. This 
means that results of an individual model] run cannot be used to predict an 
actual FEBA position, but several runs can be compared to determine the 
relative impact of various force mixes, allocations, etc., on FEBA movement. 
Likewise, the model can not be used to predict when specific supplies will 

be exhausted, but it can be used to examine when supply scarcity may be 


a problem, and estimate the time period in the conflict when this may occur. 


BR RESOURCE COUPLING AND ATTRITION/CONSERVATIONS 


In COMBAT-I1, RED and BLUE resources, such as supplies and munitions, 
are located within three fronts and their respective rear areas. Strict 
accounting is kept of the amount of each resource at each location. This 
amount changes over time due to flow into or out of a location and attrition 
at that location. There are usually several components contributing to 
the total attrition rate on resources. Strict accounting is kept of each 
contributory factor making up the attrition rate, the flow rate, and their 
integrals. 

Examples of the resource coupling equations are shown in Figure II-3. 
These particular equations are for the number of ground units at one front 
and the number of aircraft. The first equation shows a flow term and five 
component attrition terms. No flow term appears in the second equation 
since aircraft are assigned to either short or long range bases and are 
never automatically moved by the model from one “ype of base to the other. 

Resource coupling is illustrated by these two equations in that part 
of the attrition of ground forces is due to enemy air (first Equation). 

The loss rate due to enemy aircraft is proportional to the number of enemy 
aircraft, which involves the second equation. In the second equation, part 
of the attrition of enemy aircraft is due to area air defense. This 
attrition is proportional to the amount of area air defense, which is 


proportional to the number of ground units (first equation). 
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This type of coupling exists throughout the entire set of resource 


rate equations. 


Ec LEVEL OF AGGREGATION 


In COMBAT-I1, the basic ground unit is the combined arms company. 

The combined arms company has a capability and vulnerability appropriate 
to the combination of tanks, APC's, air defense systems, antitank weapons, 
personnel, and supplies that it represents. Conventional tube artillery 
is also aggregated with the combined arms company in the COMBAT-I1 ai1 
version. Artillery tubes are explicitly modeled and aggregated by type 
(up to 5 types) in the COMBAT-II artillery version. Army aviation is 

not played. Communications links and nodes are not explicitly modeled. 
They are assumed to exist however, and parameters that consider their 
effects are included. 

The supplies of various kinds, e.g., POL, rations, etc., needed to 
support a ground unit are aggregated into an entity called a supply packet. 
A supply packet is treated as being the supplies required for a battalion 
or regiment for three days. Supply packets are consumed, and may be attrited 
either with their associated ground units or as separate tragets. 

In addition to the supply elements mentioned above, the following items 
are explicitly represented with a constant tabulation being made of their 
numbers, capabilities, and vulnerabilities: 

(1) nuclear artillery rounds 

(2) short and long range missile launchers 

(3) short and long range missile rounds 

(4) three types of aircraft 


(5) nuclear weapons for the aircraft 


The spatial location of forces, systems, and resources is detailed 


only by a gront or the rear area over time. The model does not follow any 
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individual element of a force or system through an engagement and develop 


its history nor does it keep track of the specific location of these within 
a front or the rear. 

Figure [1-4 helps understand the level of aggregation. This is again 
the conservation equation for ground force packets in Front 1 as shown 
earlier, except that two of the terms in the equation are expanded to 
show their components. The time rate of change term on the left of the 
equal sign relates to the number of battalions or regiments respectively 
in the front. Each battalion is made up of three combined arms company 
packets. Each regiment is made up of ten combined arms company packets. 
The company packets are targeted and attrited, but the variable kept track 
of is the number of battalions or regiments. The flow of battalions or 
regiments to or from the front is defined in terms of the demand-response 
equations defined earlier. Note that fractions of units will] occur. 

This in not felt to be a serious flaw, since, at the theater level, larae 
numbers of units are involved, and the effects of these fractions wil] 
be tnsignificant. 

The third expanded term shows how the frontal nuclear missile systems 

couple with the ground unit equations. The missile flow is described 


in terms of a number of variables, and is also coupled to the other systems. 
F. STRENGTHS AND LIMITATIONS 


(1) Strengths of COMBAT-1| 
(a) COMBAT-!1 takes an integrated approach to a two-sided, mixed 
conventional and nuclear conflict involving simultaneous 
interactions among ground, missile, and air forces at the 
theater level. 
(b) The model enables the analyst to understand event causality 
factors, both primary and secondary. Time histories of 


over 1000 individual types of combat interactions are calcu- 


lated in the model and made available to the anlyst. 
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(c) All values used in the COMBAT-1I! computations are user 
controllable variables. The capability of modifying the 
value of user selected variables ''on the fly'', i.e., during 
the simulation runs is a powerful tool provided by COMBAT-I1. 

(2) Limitations of COMBAT-II 

(a) Only manual input strategies are played. 

(b) The effects of delayed casualties and contaminated areas 
due to nuclear detonations are not modeled. 

(c) Time histories of specific units are not followed. 

(d) COMBAT-1!1 provides for FEBA movement on three fronts but has 
no provision to represent breakthrough, overrun, encircle- 


ment and capture. 
G. COMBAT-11 EQUATIONS 


The equations utilized in COMBAT-I! may be understood through exami- 
nation of the source code in conjunction with Appendix A. The source code 
contains extensive comments referring to the individual equations. The 
variable names used in the model are explained in Appendix A. Figure lI-5 
shows the FORTRAN-IV lines from the air model which represent the ground 
force conservation equation shown in Figure !1-4, prior to inclusion of the 
flow factors. Note that every term is written as a subscripted variable. 
For example, AO403P is the missile attrition term described in Figure II-4. 
This is true for all combat elements values used by the model. There are 


no ''hardwired'' constants used in representing any combat process. 
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| 
E atthe eck etch ect ck aks desk dese ve shat ante dete vere vent ae sist ae ners aise oe ae Sia aia ace ie ake ae ake te alosie te a mir se sen he ae ~ 8 90 
€ FIFTH EQUATION SET 49) 
C FLOWS AND ASSOCIATED ATTRITION 492 | 
DO 5480 1=1,1F 493 
4g 
c Gl ATTRITION 495 
¢ EQN (5-1) - TOTAL GIF (lt) ATTRITION 496 
AO501P (1,18) =A0301P(1,1,1B)+A0301P(2,1,1B) 497 
14A0321P(1,1,1B)+A0321P(2,1,1B)+A0321P(3,1,1B8)+A0401P (1,18) 498 
2+A0402P (1,1B)+A0403P (1,18) 499 
5480 CONTINUE 500 


Figure II-5. Example of COMBAT-I Code 


Note: All COMBAT-II variables are defined in Appendix A. 
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CHAPTER III 
INPUT COMPONENTS AND MODEL STRUCTURE 


A. INPUT CLASSIFICATION 


The inputs for COMBAT-I1 may be divided into three generic classes: 
State variables, strategy variables, and interaction variables, as shown 
tm Froqure VEL=b- 

le State Variables 

The state variables are equivalent to the ''givens'' in a particu- 

lar problem. An example of this input class is the forces available to 
each side at the beginning of the conflict. This class includes the avail- 
ability of additional assets as a function of warning or mobilization. 
Thus, for various mobilization/warning scenarios there would be different 
forces available. State variables are usually characterized by high levels 
of confidence in their accuracy. COMBAT-I!, however, operates at a high 
level of aggregation. State variable values may therefore require trans- 
formation prior to model input. For example, if forces of different 
armies with different organizational structures are to be considered, the 
differing organizations must be transformed into a single equivalent 
organizational structure. Thus, even with state variables, there is the 
need to analyze the composition and structure of the entities they represent 
in order to insure proper translation. Examples of the type of analysis and 
translation required are depicted in Figure I/I1I-2. | 

eae Strategy Variables 

Strategy variables are a class of variables which allow the user 


to specify options. For example, one option that might be investigated is ] 


the effects of alternative allocations of air assets to various attack 
missions. From such an investigation, insights may be gained into the impacts 
of these alternatives on the outcome of the theater conflict. The develop- 
ment of strategy variable input values requires research into opposing force 
doctrine, past operations, and, when available, the analysis of actual 


exercise data. 
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STATE VARIABLES 

- FORCES AVAILABLE OVER TIME 
DERIVED FROM INVENTORIES AND INTELLIGENCE 
MODERATE TO HIGH CONFIDENCE RANGE 


STRATEGY VARIABLES 

= MISSION ALLOCATIONS 

= ANALYTICALLY SPECIFIABLE 

= MAY VARY OVER A WIDE RANGE 


INTERACTION VARIABLES 

- PKS, ACQUISITION FACTORS 

= PHYSICAL CALCULATIONS 

* LOW TO MODERATE CONFIDENCE 


Figure Ill-1. Characteristics of Generic Input Classes 


NUMBER OF BASES 


- FORWARD VS REAR 

= US VS ALLIED 

— NUCLEAR MUNITIONS AVAILABILITY 
NUMBER/TYPE AIRCRAFT AT EACH 


MANEUVER UNITS PER FRONT 
UNIT DENSITIES 
INDIGENOUS WEAPONS 
RESERVE FLOWS 


SUPPLY AVAILABILITY 


Figure lll-2. Examples of State Variables Requiring Research and Analysis 


se Interaction Variables 

Interaction variables include such inputs as the probabilities 
of kill and acquisition. These variables are usually based on empirical 
data and therefore have a low to moderate confidence level. Data which 
are of the ''one-on-one'' type must be aggregated to a ''many-on-many'' level 
for use in COMBAT-II1. In general, this aggregation requires a considerable 
amount of preparation time and the resultant inputs should be considered as 
being among the most likely candidates for sensitivity analysis. 

The remaining sections of this chapter will discuss COMBAT-II in 
terms of its structure and processes and the input data associated with 
those processes. The variables will not be identified as state, strategy 
or interaction in the following discussions but rather by their specific 


variable names. 


B. OVERVIEW OF COMBAT-11 STRUCTURE 


COMBAT-!! is a computerized model of simultaneous air/ground combat 
at the theater level with the capability to play conventional, nuclear, or 
mixed interactions. It has been designed to operate as an aggregate mode] 
providing an overview of theater level mixed combat exchanges and to 
determine the key factors affecting a conflict outcome. 

The following discussion will be limited to the processes and input 
considerations that are common to both the air and artillery versions of 
COMBAT-I1. The air version will be used to iliustrate the discussion. 

The air version of the model portrays the conflict as having three 
fronts and a rear area (Figure I1!1-3). Activity in Front 1 is viewed as 
the driving force for the rest of the model. The movement of the FEBA in 
the other two fronts is derived as a function of the FEBA movement in 
Front 1. Therefore, Front | always represents the main area of attack. 
The combat elements within a front consist of Ground Force packets (G1), 


Supply packets (G2), Artillery (G3) and associated rounds (G5) and Frontal 
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BLUE SIDE 
FRONT 1 


REAR AREA 


Al, A2, A3 
B1, B2, 


G1R, G2R 


FRONT 3 


REAR AREAS 


@ A1,A2,A3 - 3 TYPE AIRCRAFT 
@ B1, B2 — 2 TYPE AIRBASES 


@ GiR,G2R - RESERVE GROUND FORCES 
AND SUPPLIES 


es ~ NUCLEAR STORAGE SITES 
@ 11,12 — NUCLEAR MISSILE LAUNCHERS 
@ m1, M2 ~- NUCLEAR MISSILE WARHEADS 
@ G5, G6 ~ ARTILLERY ROUNDS AND 


FRONTAL MISSILE WARHEADS 


Figure Ill-3. Air Model 
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Al, A2, A3 
B1, B2 


G1R, G2R 


FRONTS 


G1 - GROUND FORCES 

G2 - SUPPLIES 

G3 - ARTILLERY TUBES 
G4 - SSM LAUNCHERS 

G5 — ARTILLERY ROURCS 


G6 — NUCLEA SSM 
WARHEADS 


ee 
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Surface-To-Surface Missile (SSM) Launchers (G4) and their warheads (G6) 
The fires of artillery systems located within a front may be directed only 

at the opposing ground forces, supplies, and systems in that front. Simi- 
larly, ground force packets may attack only opposing ground force packets 

in that front. 

In the rear area, there are Reserve Ground Force packets (GIR), Rear 
Supply packets (G2R), Nuclear Storage Sites (S$), and Centrally Controlled 
SSM Launchers (L] and L2) with their warheads (Ml and M2), as well as artil- 
lery rounds and frontal missile warheads (G5, G6). In a European conflict, 
the Centrally Controlled SSM Launchers might be used to simulate the 
Pershing and Lance missile systems. The frontal missile system might repre- 
sent the Honest John missile system in use by non-U.S. corps. 

Also located in the rear are the air bases and their aircraft. The 
air bases are divided into two categories. Air bases which are within 
range of the opposing centrally allocated SSM's are designated as Bl while 
bases that are beyond this range are designated as B2. The aircraft are 
divided into three nominal types. The Al aircraft are normally considered 
to be interceptors that engage enemy aircraft and then return to their 
base. They are not nuclear capable. The A2 aircraft are normally used in 
a ground support role and are nuclear capable. The A3 aircraft are normally 
the long range aircraft that may be used in either the ground support role 
or the interdiction role and are also nuclear capable. These roles are, 
however, under the control of the user and may be changed at any time. 
Aircraft and centrally controlled SSM's may attack targets in the opposing 
rear or in any of the three fronts. The model has the capability to permit 
user reallocation of the aircraft and SSM's between missions during the 
conflict simulation. The time at which these changes are to take place must, 


however, be determined prior to beginning the simulation run. 


“In the artillery version, five frontal weapon systems are portrayed, 
and they are designated Wl, W2, W3, W4, and W5. The rounds fired by 
these systems are Rl], R2, R3, R4, and RS. 
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COMBAT PROCESSES 


ih. Air Interactions 

The air battle is graphically illustrated in Figure I1I!-4. As 
mentioned previously, there are three types of aircraft played as well as 
two types of bases. The number of aircraft, by type, the number of bases 
by type, and the number or percentage of each of the three aircraft types 
located on these bases are some of the variable inputs required by the model. 
In a European conflict, the NATO forces have a variety of aircraft available 
for use. An analysis is required to categorize these aircraft into one of 
the three aircraft types modeled in COMBAT-I|1. The number of airbases 
available and their location relative to each other must be determined in 
order to classify them into the permissible COMBAT-I| types. In addition, 
a number of additional factors, listed in Table II1I-1, which affect also 


air operations and input must be considered. 


Table ttl-l. Air Base Parameters 


NUMBER OF FORWARD AIR BASES (B1) 

STATE OF REPAIR FOR THE FORWARD BASES 

REPAIR RATE FOR THE FORWARD BASES 

NUMBER OF LONG RANGE BASES (B2) 

STATE OF REPAIR FOR THE LONG RANGE BASES 

REPAIR RATE FOR THE LONG RANGE BASES 

NUMBER OF CONVENTIONAL MUNITION LOADS FOR AIRCRAFT (A4) 
RATE OF EXTERNAL SUPPLY OF CONVENTIONAL MUNITIONS 

NUMBER OF NUCLEAR MUNITION LOADS FOR AIRCRAFT (AS) 

RATE OF EXTERNAL SUPPLY OF NUCLEAR MUNITIONS 

CONV WEAPONS LOST PER Al IN A CONV ROLE LOST ON THE GROUND 
NUC WEAPONS LOST PER A2 IN A NUC ROLE LOST ON THE GROUND 
CONV WEAPONS LOST PER A2 IN A CONV ROLE LOST ON THE GROUND 
NUC WEAPONS LOST PER A3 IN A NUC ROLE LOST ON THE GROUND 
CONV WEAPONS LOST PER A3 IN A CONV ROLE LOST ON THE GROUND 


The air battle begins with the launching of aircraft on both 
sides. At the beginning of the simulation when there has been no damage to 
either side's bases, the aircraft will be launched at or near the maximum 
sortie rate provided by the user. As the simulated conflict continues, 
aircraft will be launched as a function of: 
(1) the number of aircraft at the air bases; 
(2) the munitions available at the air bases; 
(3) and the state of repair of the air bases. 
Figure II1-4 illustrates the sequence of the air battle from the 
BLUE point of view. After aircraft are launched, they are subject to being 
detected and engaged by the opposing side's interceptors. Aircraft assigned 
to a bombing mission must survive the air-to-air battle before being able to 
execute their primary mission. During the conduct of the bombing missions, 
aircraft are subjected to both local (point) and area air defense attack. 
Each type aircraft must be allocated to one or more of the avail- 
able missions. Figure I11-5 depicts the possible allocations. Interceptor 
type aircraft will normally be allocated almost exclusively to the air-to- 
air mission, long range aircraft to the air-to-ground missions, with priority 
to targets in the rear, and close-air-support aircraft to the air-to-ground 
role with priority to frontal forces. Priorities are reflected in the 
fractional size or percentage of the force allocated to the various missions. 
In additior to the air allocation input data, there are a number 
of additional inputs that are required for each type of aircraft. They 
include the following: 
(1) the munitions loading per aircraft; 
(2) the maximum sortie rate permitted; 
(3) and the kill probabilities against each type target. 
Zz Target Acquisition 
Target acquisition is one of the key components of any combat model. 


The target acquisition process can be viewed in terms of five functional 


groupings: allocation of acquisition means, acquisition of the target, 
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Figure Il1-4, Diagramatic Representation of Air Combat 
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Figure ill-5. Allocation of Air Assets 
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evaluation of the acquisition report, allocation of attack means to the 
target, and attack. To date, however, no model has been able to adequately 
capture all the facets that make up the target acquisition process. 

The approach used in COMBAT-I! has been to concentrate on the 
acquisition/attack process after acquisition has occurred through some 
sensor or visual means and the sensor report has been evaluated. COMBAT-I| 
expresses this situation as a percent-of-knowledge value input by the user 
for the various target elements. The next step in the process is the 
allocation of attack systems. This allocation is made as a function of the 
range of the various attack systems, the number of the systems available to 
execute a particular type mission and the input allocation by target type. 

Figure I!1-6 provides a graphical representation of the COMBAT-| | 
acquisition process using PACT ground forces in Front 1 as the target. 
A certain percent of the ground forces for each side start the engagement 
as acquired targets. This percentage is input data reflecting NATO and PACT 
acquisition capabilities. The percent of target knowledge varies as a 
function of the rate of acquisition and loss rate of acquired targets during 
simulation operation. As PACT ground forces flow into Front 1, they are 
acquired at a rate signified by A. This fraction is added to the acquired 
pool of ground force targets for Front 1. Once acquired, these targets are 
subject to attack by all the systems which are both in range and a) located 
against ground forces. Acquired targets have three meens of leaving the 
acquired pool of targets. They can be moved to the rear based on the demand 
equations discussed in Chapter 2. They can be attacked and eliminated, or 
they can become unacquired. Targets become unacquired at a rate signified 
by nh, which is a function of the target type, its survival time and dis- 
engagement time. The acquisition process is continuously occurring through- 


out the engagement. Table I!1I-2 contains a listing of acquisition inputs 


required for this process. 
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Table 111-2. Acquisition Input Parameters 


FRONTAL GROUND FORCES: INITIAL PERCENT OF KNOWLEDGE 
FRACTIONAL RATE OF ACQUISITION 
FRACTIONAL RATE OF LOSS OF KNOWLEDGE 
FRONTAL SUPPLY PACKETS: INITIAL PERCENT OF KNOWLEDGE 
FRACTIONAL RATE OF ACQUISITION 
FRACTIONAL RATE OF LOSS OF KNOWLEDGE 
REAR GROUND FORCES: INITIAL PERCENT OF KNOWLEDGE 
FRACTIONAL RATE OF ACQUISITION 
FRACTIONAL RATE OF LOSS OF KNOWLEDGE 
REAR SUPPLY PACKETS: INITIAL PERCENT OF KNOWLEDGE 
FRACTIONAL RATE OF ACQUISITION 
FRACTIONAL RATE OF LOSS OF KNOWLEDGE 
LONG RANGE WEAPON SYSTEM 1: INITIAL PERCENT OF KNOWLEDGE 
FRACTIONAL RATE OF ACQUISITION 
FRACTIONAL RATE OF LOSS OF KNOWLEDGE 
LONG RANGE WEAPON SYSTEM 2: INITIAL PERCENT OF KNOWLEDGE 
FRACTIONAL RATE OF ACQUISITION 
FRACTIONAL RATE OF LOSS OF KNOWLEDGE 


3 Movement of Resources 

Resources are located at the three fronts and in the rear area. 
The quantity of resources located in each area changes with time as a func- 
tion of flows into or out of the area due to frontal demands, and total 
attrition within the area. A strict accounting is kept of both the causal 
factors of attrition and the resource flows. 

Figure II!-7 illustrates the resource flows that are simulated. 
Resources flow only from rear to front and from front to rear. Resources 
can be moved from one front to another only by being withdrawn to the rear 
and subsequently allocated to another front. Resources may not flow directly 
from one front to another. The direction of flow for a particular front is 


dependent on the battle situation at that front as well as the difference 
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between the desired supply level and the current supply level. The actual 
demand/response equations were discussed in Chapter I1. 
In addition to the dynamic internal flows, COMBAT-11 permits the 
introduction of additional units and material resources. This flow is 
termed ‘external resupply'' and it provides the capability to allow new 
resources to be introduced into the rear area of each side during the course 
of the simulation conflict. This permits reinforcement packages into 
Europe after the start of a conflict. As an example of this process, if a 
reinforcing package is assumed to be composed of 12 ground force packets (G1) 
and 6 frontal weapon systems (G4) and the elements are to become operational 
over a 24-hour period beginning on the fourth day of the conflict, the user 
provides the model with the following information: 
(1) for Gl Hour 72, External Resupply Rate is .5 
(2) for G4 Hour 72, External Resupply Rate is .25 
(3) for Gl Hour 96, External Resupply Rate is 0.0 
(4) for G4 Hour 96, External Resupply Rate is 0.0 
The external resupply rate is expressed in terms of units per 
hour and the user must specify both the beginning and end of the period 


over which external resupply is to occur. 
Di MODIFICATION OF COMBAT ELEMENTS DURING A SIMULATION RUN 


The ability to cause rates and quantities to change during a simulation 
run is @ powerful feature of COMBAT-II. As will be explained in detail in 
Chapter IV, this is accomplished by submitting ''modification cards'' with the 
simulation run. Sensitivity analysis studies are greatly facilitated by this 
capability. As an example of how variable values might be changed during a 
run to reflect changes in the combat situation, the transition from a con- 
ventional to a nuclear conflict is discussed below. 

Modeling nuclear release in the artillery version is done in a manner 
analogous to the introduction of external supplies. Inputs must be made to 
change the appropriate variable values. In order to minimize the number of 


inputs necessary to change from a conventional to a nuclear environment, 


43 


no one model weapon system, W(i), should represent both nuclear and non- 
nuclear certified tubes. In addition, each nuclear system to be modeled 
should be represented by a different W(i). 

Assume that BLUE WI, W2, and W3 are used to represent 155 mm 
cannons capable of delivering three different yields of nuclear shells, 
and W4 represents eight inch nuclear capable artillery. All conventional 
artillery is then aggregated in W5. The initial inputs of the run might 
represent the rounds being fired by all systems, RI, R2, R3, R4, and R5, as 
conventional. The probabilities of kill, firing rates, numbers of available 
rounds in each front, and allocations to targets would be set appropriately. 
If after one day, Wl and W4 are to fire nuclear rounds for six hours and 
then stop, the necessary input information would consist of new values for 
the firing rates of Wl and W4, new numbers of rounds RI and R4, new 
probabilities of kill against all possible targets, and new target allocation 
schemes for both systems. These values would take effect at Hour 24 and 
a similar set of inputs would be required to return these systems to the 
conventional mode at Hour 30. If at the end of two days all four nuclear 
frontal artillery systems are to be used for six hours, complete sets of 
inputs must be given for all four systems for Hour 48 and Hour 54. Of course, 
if a weapon system is used only for nuclear delivery, it is necessary to 
change only the firing rate. The original input data can include appro- 
priate numbers of rounds, allocation to targets, and so on. For example, 
RED WI and W5 might be different conventional artillery systems and W2, W3 
and W4 could be FROG missiles having three different nuclear warheads for 
different yields. If only the lowest yield (e.g., W2 using R2) is to be 
employed for three hours following the first BLUE nuclear attack described 
above, the input would consist of: 

(1) for W2 Hour 30, Max Firing Rate per Weapon is X 

(2) for W2 Hour .33, Max Firing Rate per Weapon is 0. 
Here ''X'' is a number which represents a realistic firing rate for this 
system. The number ''X'' must be developed prior to running the model. It is 
assumed that all other information defining nuclear characteristics for 


the RED W2, W3, and W4 systems was input as part of the initial variable values. 
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lt should be noted that any one weapon system for a given side cannot 
fire both conventional and nuclear rounds simultaneously. Thus, it is not 
necessarily a good idea to use the different frontal weapon systems simply 
to reflect different sizes of artillery tubes. 

The delivery of nuclear munitions by aircraft in air-to-ground missions 
occurs whenever a sufficient quantity of A5's are available to a given 
side. If nuclear release is not to occur until some time after the beginning 
of a simulation, a supply of A5's should not be included as part of the initial 
value inputs, although all other related inputs, such as expenditure rates, 
probabilities of kill, etc., may be input initially. Thus, if nuclear re- 


lease is at Hour 10 and nuclear loads are to be delivered for six hours, the 


minimal input required to model these events is: 
(1) for AS at Hour 10, Total Number is Y 
(2) for AS at Hour 16, Total Number is 0 
where the number ''Y'' must be a realistic number of available loads. 
Of course, the scenario being played may dictate that nuclear muni- 
tions are only to be used against specific target types, long range air 
bases, for example. In that case, the allocation schemes would also have 
to be altered. In addition, if A2's represent air-to-ground capable 
planes that cannot strike long range targets, it would be necessary to 
ground them by setting the Maximum Desired Launch Rate for A2's to zero. 
Note that all A2's and A3's will be eligible to fly nuclear sorties 
if A5's are available. The air model generates a mix of conventional and 
nuclear A2 and A3 missions internally. The artillery model makes all 


A2 and A3 missions either conventional or nuclear. 
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Delivery of nuclear or conventional munitions by the central missile 
systems is handled in exactly the same manner as delivery by frontal weapon 
systems, except that there are a larger number of targets to which fire can 
be allocated. 

Any of the initial input variables may be changed by the user at some 
predetermined simulation time. As a result, the effects of variation in the 
rates of movement, rates of flow, firing rates, inventories of weapons, 
probabilities of kill, or allocation schemes on the combat elements re- 


presented in COMBAT-11 can be readily studied. 
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CHAPTER IV 
OPERATION OF THE COMBAT-1! SYSTEM 


A. INTRODUCTION 


The purpose of this chapter is to provide the user with the information 
necessary to run the COMBAT-I! programs. 

The optional and required contrcl inputs for each program are explained 
in detail along with the file requirements. The outputs resulting from each 
program option are explained and their use in succeeding programs is dis- 
cussed, 

Examples of the Job Control Language (JCL) used to run each program 
may be found in Appendix C. Sample model control and data inputs for each 
program are also presented with the appropriate JCL. In order to fully under- 
stand the COMBAT-I|! program, this chapter should be used in conjunction 
with the Program Design Language (PDL) shown in Appendix B, the COMBAT-1! 
variables explained in Appendix A, and the source code listing shown in 
Appendix D. The PDL provides an abstracted presentation of the control 


logic utilized in the COMBAT-I! program. 


B. OVERVIEW 


The COMBAT-I! system consists of four programs: a processor for initial 
data base generation; the processor program; a postprocessor providing tab- 
ular output; and a postprocessor providing plotted output. 

The preprocessor program, called FORMS, generates a portion of the 
simulation inputs directly and a number of user aids for developing a data 
base. FORMS uses a card deck containing a variable dictionary and a 
variable cross-reference index as inputs to produce a variable dictionary 
file, a punched card deck containing the data base input variables in 
NAMELIST format, and a printed set of variable cross-references and de- 
scriptions to assist the user in developing and entering the data base 
values, Figure (V-| shows a procedural block diagram of the use of the 


FORMS program. 
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The processor program, called COMI!, has three modes of operation. In 
the creation mode, an initial data base file is generated and the mode] 
operates utilizing the initial values supplied by that data base. In the 
normal mode, either a data base generated during a creation mode run or the 
output file of a previous normal run is employed to initialize the mode] 
variables. Finally, in the restart mode the output file from a previous 
run is used to resume the simulation at some user specified time. The out- 
put file from each run contains the data base utilized for variable initial- 
ization at the start of that run. 

The output of the processor program includes printed statistics of the 
simulation integrator operations and a permanent file containing the state 
of all variables at user specified time intervals. The processor contains 
two major subroutines, referred to as AIRMODL for the air model, and ARTMODL 
for the artillery model. The differences between these two models have been 
explained in previous chapters. The procedural block diagram of the simu- 
Vation is shown in Figure !V-2. 

Due to the differences in the output of the air and artillery models, 
two separate tabular postprocessor programs, ARTOUT for the artillery model, 
and AIROUT for the air model, are provided. These two programs operate 
independently of each other. 

The appropriate postprocessor program accepts the output file generated 
by the processor and user control cards as input. The data output by the 
processor is formatted and printed. The user may request that either the 
rates of change of values or the actual values for each combat element or 
weapons system over a time range be printed. ARTOUT and AIROUT provide the 
variable values ‘n a tabular format. 

A plotting program, named GRAPHC2, provides printer plots of user 
selected variables over time. The inputs are the processor output tape 
and run control cards giving the variables to be plotted. The output in- 
cludes a table of contents of the graphs requested, a listing of the variable 
values plotted on each graph, and the plots themselves. Up to 14 variables 
may be plotted on a single graph. A temporary scratch file is used to 
build the graphs. A procedural block diagram of ARTOUT, AIROUT, and GRAPHC2 


is shown in Figure IV-3. 
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Figure IV-2. Processor (Medal) 
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Figure IV-3. Postprocessor 


PREPROCESSOR (FORMS PROGRAM) 


Ve Inputs 


The FORMS input data deck consists of a model control card followed 
by two card decks separated by a single ''EOR' (6-7-8 punch in CCl) card. 

The air and artillery models require different sets of card decks. The model 
control card specifies whether FORMS is being run for the air or-artillery 
model by having either "AIR" (CC1-3) or ''ARTILLERY'' (CC1-9) on the control 
card. > 

The first file, referred to as the variable definition file, con- 
tains the variable names with their associated subscript specifications and 
an abbreviated description of the use of the variable. All combat element 
variable names (input, computed, and output) utilized by COMBAT-I| are con- 
tained in the variable definition file. The primary naming convention used 
by COMBAT-!1 is an X suffix for user input variables and a P suffix for 
program computed variables. The only exceptions to this convention are for 
the program computéd V and AV variables which represent actual values, the 
VO variables which are input variables, and those variable names containing 
DV which represents rates of change. 

Each variable definition file record consists of four alphanumeric 
fields. Field 1 (CC1-6) is used for the variable name with CC6 containing 
the X or P suffix. The remaining three fields (CC9-10, 12-13, 15-16) contain 
subscript designators used to represent the subscript dimensionality for that 
variable. These designators are transformed into the actual subscripts in 
FORMS and then become part of the outputs. The reader should see Appendix A 
for the order in which the variable definition records should be placed. 

This file is used to generate the NAMELIST format punched card deck, the 
variable definition portion of the output file, and the cross-reference 
listing. 

The second file, referred to as the variable dictionary file, con- 
tains the input variable names along with descriptions of their meaning 
and use. The variable dictionary file is used to generate the variable 
name and description portion of the output file and the variable description 


listing. 


A FORMS variable dictionary file record contains five fields. 
Field 1 (CC1-6) contains the input variable name. Fields 2, 3, and 4 
(CC7-8, 9-10, 11-12) hold the subscript(s) associated with that particular 
variable name. The remainder of the record (CC13-80) holds the alphanumeric 
descriotion of the variable. 

In eddition to the variable descriptions, the variable dic- 
tionary file contains three types.of control cards which provide user 
options for formatting the printed variable dictionary. A "'TITLEI'' 

(CC1-6) control record skips to a new page, prints the words ''RED'' and 
"BLUE' at the right hand side of the page, prints the title contained on 
the remainder of the control card and prints an underline across the page. 
The ''TITLE2*' (CC1-6) causes the same actions but without the page skip or 
words "'RED and "'BLUE'' printing. The ''SPACE'' (CC1-5) card prints a blank 
line if the remainder of the card is blank, otherwise a line skip is per- 
formed, the remainder of the card printed and another line skip performed., 
A complete listing of the input decks for the air and artillery models 
appears in Appendix A. 

the FORMS input deck appears as follows: 


VARIABLE DICTIONARY 
DECK 


VARIABLE DEFINITION 
DECK 


MODEL CARD 


Figure 1V-4. FORMS Input Data Deck 
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es File Unit Numbers 

TAPES is the input file for the FORMS program. The output to the 
printer is TAPE6 and the FORMS output file used by the simulation program 
(COMI!) is written to TAPE7. TAPE8 is a scratch file used to assemble TAPE7, 
and TAPES is the punch output file for creating the NAMELIST deck. The TAPES 
file is not actually punched by the FORMS program, and thus an additional 
utility program must be utilized to generate the card deck itself. 

3, Outputs 

As shown in Figure IV-1, and mentioned previously, FORMS provides 
four outputs: a listing of the input variable names with their descriptions, 
grouped by their relationships; a listing of the individual variables in the 
same order as they appear in the NAMELIST deck, cross-referenced to the 
description listing and with index numbers (the use of these index numbers 
will be explained in a later section); a permanent file containing the 
variable dictionary and descriptions; and a punched card file in NAMELIST 
format with the actual data values left blank. 

The permanent file is written in two sections. The first section 
contains a)) COMBAT-11 variable names, both input and computed, associated 
with the combat elements. The second section contains the variable names 
and descriptions of all the user input variables. 

The procedure for using the two output listings to develop a data 
base is as follows: 

(1) The user fills in the appropriate initial values for both RED 

and BLUE on the variable description listing in the spaces 

provided. (Step 1, Figure IV-5). 

(2) The values are then transcribed onto the cross-reference listing. 
(Recall that the description list has the variables grouped by 
function and with descriptions of their meaning while the cross- 
reference listing presents the variables in the same sequence 
as the cards in the NAMELIST deck.) Index numbers are provided 
on both the cross-reference listing and on the description listing 
to facilitate the location of variable names during the transcrip- 
tion process. Additionally, the variable names are arranged in 
alphabetical order on the cross-reference listing. (Step 2, 
Figure !V-5). 
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(3) The cross-reference listing with the transcribed values placed 

in the provided positions, permits the punching of the values in 

the provided empty fields of the NAMELIST deck, in the same se- 

quence as the deck was punched by the FORMS program. In other words, 
no shuffling of cards is necessary and no mistakes will be made in 

the spelling of variable mames. (Step 3, Figure !V-5). 

The NAMELIST method of inputting the initial base valves to the 
model was chosen to provide additional documentation of the input. While 
the resulting card deck is quite large, BDM believes the advantages of the 
additional documentation thus provided outweigh the cumbersomeness of the 
method. It should be noted that the index numbers referred to previously 
provide a key to the location of the variables in the COMMON areas of the 


COMBAT-I!| model and to their location on the output tape from the model. 


D. PROCESSOR (COMI! PROGRAM) 


a Inputs 


As shown in Figure |IV-2, there are four types of control cards and 
a description card which are used when running the COMI! program: a version 
control card referred to as the MODEL card; a run control card, referred to 
as the CONTROL card, one or more run description cards, referred to as EYRE 
cards; an integration control card, referred to as the DEQ card; and one or 
more variable value modification cards, referred to as MODIFY cards. The 
CONTROL card, the MODEL card, and the DEQ card are required for all runs 
of the COMI! porgram. The use of TITLE and MODIFY cards is optional, though 
the use of at least one TITLE card is recommended to help identify the run. 

The MODEL card is always the first card in the input deck. The 
MODEL card determines whether the air model or the artillery model is being 
run. The format for the MODEL card is ''AIR'' in CC1-3 for the air model, 
and "ARTILLERY" in CC1-9 for the artillery model. 
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Information on the CONTROL card determines the mode of the run and 
permits the user to specify certain output options. The CONTROL card is 
always the second card in the deck and appears as follows: the word ''CONTROL'' 
in CC)1-7; five logical (T or F values only) variables, RFLG, OFLG, DFLG, TFLG, 
and BFLG in CC11-15; and the game start time, TT in CC16-20. 

|f RFLG is true, then the program will operate in the creation 
mode. In a creation mode run only, the CONTROL card will be followed imme- 
diately by the NAMELIST deck produced by FORMS, with values punched in by 
the user. If BFLG is true, then the program will operate in the restart 
mode. if both RFLG and BFLG are false, the program will operate in the 
normal run mode. Note that RFLG and BFLG should never both be true. 

The remaining flag variables provide output options. If OFLG is 
true, then a cross-reference listing in the same format as that produced by 
the FORMS program will be produced with the input coefficient values filled 
in. If TFLG is true, then a variable description listing is provided in 
the same format as in FORMS with the input values filled in. If DFLG is 
true, then a trace of the run is printed noting the game time, cumulative 
CPU time, and integration step size at certain integration points. 

The game start time, TT, is the initial value for the simulation 
clock. In the restart mode, TT is the time from the previous run at which 
the run will be restarted. 

The TITLE cards consist of from one to one hundred cards contain- 
ing a description of the run. These cards have no format requirements other 
than they may not have the letters "'DEQ'' in CC1-3. The TITLE cards are 
written verbatim to the output tape. 

The DEQ card provides the parameters which control the integration 
routine. The DEQ card begins with the letters ''DEQ'' in CC1-3 and contains 
six real numbers: the maximum integrator time interval, TINC, in CC11-20; 
the initial interval, which should be a negative power of two times the 
maximum interval, DELT, in CC21-30; a maximum allowable value for the error 


term computed by the integrator, ERROR, in CC31-40; an interval between 
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times in hours when the model stores its full set of state variables on 
output tapes, DTINER, in CC41-50; the end time for the run, TEND, in 
CC51-60; and the acquisition equation scale factor, ALPHA, in CC61-70. The 
complete set of state variables, also called a data point, should be stored 
at least ten times during the run, so DTINER should be at most one tenth 

of TEND. 

The values of individual variables, both initially and during the 
simulation, are changed through the use of MODIFY cards. Each such card 
has ''MODIFY'' punched in CC1-6. A time in hours follows in CC1I1-20 to in- 
dicate the time at which the change is to take place. Up to four index/ 
variable value pairs complete the data on the card. The first index appears 
in CC21-25, the first new value in CC26-35, and each successive pair 
occupies successive 15 card column fields to the right. The variable indices 
appearing on MODIFY cards are the index numbers appearing on the FORMS cross- 
reference list discussed earlier. 

Additional index values are provided in the air model for altering 
the allocation of air resources (planes and their munitions) among forward 
and long-range bases. The valid indices for this function are -1 to -20 
inclusive, and the new value is the fraction of available resources to be 
moved. A MODIFY card with index -1] moves the specified fraction of BLUE Al 
(Interceptors) from BLUE long-range air bases to the forward air bases. 

The values -2 to -5 perform the same action for A2 (Fighter Bombers), A3 
(Long-Range Bombers), A4 (Conventional Munitions), or AS (Nuclear Munitions) 
respectively. Indices -6 to -10 cause movement of these same resources 
from BLUE forward to BLUE long-range bases. Reallocation on the RED side is 
accomplished using indices -11 to -20 in a similar fashion. For example, a 
card reading: 

CC1234567890123456789012345678901234567890 

MODIFY 1200. =a oF fs, 

would cause 75% of RED fighter bombers on long-range bases to be moved to 


forward bases at time 1200. 
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The interval at which a data point is written to the output tape 
can also be changed using a MODIFY card. In the air model, any negative 
index of magnitude greater than 20 can force this change, and any negative 
index at all will have the same effect in the artillery model. In either 
case, the corresponding new value is the new data point interval. 

Bc File Unit Numbers 

The processor uses several permanent files. TAPE] is a normal run 
start file. TAPE2 is an output file used in the creation mode to store the 
initial data base for later use as a normal run start file. TAPE3 is the 
permanent output file in all modes. TAPE4 is used to initialize the model 
in restart mode. TAPES is the user data input file (i.e., the card reader). 
TAPE6 is the standard printed output file, and TAPE7 is the dictionary tape 
generated by FORMS. 

br Outputs 

As indicated, the COMI! program provides both printed and 
permanent file outputs. The permanent file contains the word ''AIR'' or the 
word ''ARTILLERY'' to identify the version of the model that generated the 
file. The title and start time of the run are recorded as well. The 
remainder of the file contains all of the data points recorded during the 
simulation run. 

The printed output provides the user with a record of integration 
and modification activities occurring during the run. In addition to identi- 
fying the run with the version name, the title, and the control parameters 
from the CONTROL and DEQ cards, it lists all variables that were changed 
by MODIFY cards and the times of the changes. If DFLG on the CONTROL card 
is TRUE, a summary of the activities of the integrator is printed whenever 
variable values are modified or a data point is recorded. In addition, 
each time the integrator modifies the time step between integrations, the 
variable which caused the integrator time step to change, the number of 


cycles of integration since the last summary, and the cumulative CPU time 


of the simulation run are printed. 


E. POSTPROCESSOR (ARTOUT AND AIROUT PROGRAMS ) 


ls Introduction 

ARTOUT AND AIROUT are two independent postprocessor programs for 
the COMBAT-I! model. ARTOUT is associated with the artillery version while 
AIROUT is used with the air version. The main purpose of these postprocessors 
is to extract the values of specific functional variable groups from the 
output file of the COMBAT-I| program and print them in a tabular form. In 
addition, the totals of certain quantities are computed by these programs 
and tabulated in the same tables with their associated functional groups. 

A brief description of each entry is also provided. Detailed explanations 
of the interpretation of the tables in the postprocessor output are given 
in Chapter V. 

ARTOUT and AIROUT differ only in certain formats and in the fact 
that ARTOUT provides for the output of information concerning the additional 
weapons systems modeled in the artillery version. Therefore, the following 
discussions will refer to both programs except where noted. 

Be Inputs 

The program requires the output file from the COMBAT-11 program 
and a set of control cards detailing the desired output. There are two types 
of control cards, the CHANGE card which specifies the output of either actual 
values or of the rates of change of those values, and the TYPE card which 
specifies which tables are to be generated. 

On each CHANGE card, the word ''CHANGE'' appears in CC1-6, and a 
positive or negative real number is found in CC11-15. The sign of the 
number is used to determine if the user wishes to see the actual values 
resulting from integrations or the rate of change of those values. If 
the number is positive, the actual values are presented. If the number 
is negative, then the rate of change is provided. A CHANGE card may 
appear at any point in the data stream. The effects of each CHANGE card 
persist until another CHANGE card is encountered. The default state is 


to print the actual values. 
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The TYPE card determines which set of tables the user receives. 
The TYPE card has the following format: the word "TYPE" in CC1-4; a three 
digit integer in CC5-7, termed the INTV number; a real number in CC11-15 ' 
referred to as TIMEI; an alphanumeric field referred to as the TABLE para- 
meter in CC16-17; and an integer number referred to as the SIDE parameter in 
CC18. A TYPE card is required for each table desired. i" 
The INTV number provides the user with the option of varying the | 
time interval between the data points presented in a table. All tables will 
present ten data points in ascending order by time. If no INTV number is 
present, the data points printed will be adjacent records on the tape. The 
user may, however, using the INTV number, select an alternate sequence. If 
the INTV number is 002, then every other data point will be selected until 
a total of 10 are selected. If the INTV number is 003 then every third data 
point will be selected until a total of 10 have been selected, and so on. 
The TIME] parameter gives the time of the first data point to be 
output. If a data point was not recorded at the time specified, the first 
data point recorded after that time will] be used. 
The TABLE parameter specifies the particular table which is to be 
output. The alphabetic character in CC16 determines the type of table, and 
the number in CC17 causes the table to be filled with data about a particular 
front or weapon system, whichever is appropriate. For example, the TABLE 
parameter A3 will produce an Aircraft Status table with information about 
type 3 aircraft. 
With a few exceptions, the valid TABLE parameters are the same as 
the designators (Al, Gl, Wl, etc.) for the forces and weapon systems modeled 
in COMBAT-II|. In the postprocessor, a TABLE parameter of RI, R2, or R3 
provides a tabular output showing various aspects of FEBA movement at Fronts 
1, 2, or 3 respectively. In addition, MO gives both the Ml and M2 systems; 
BO gives both the Bl and B2 systems; and finally, GO gives the G3, G4, G5, 


and G6 systems (air version). Table IV-1 summarizes the valid table 


parameters. 


Table 1V-1. Table Parameters for AIROUT and ARTOUT 


TABLE TABLE PARAMETERS 
GROUND FORCES GI 
SUPPLIES G2 
FRONTAL WEAPONS SYSTEMS AND MUNITIONS (ARTILLE W1,W2,W3,W4 , WS 
FRONTAL WEAPONS SYSTEMS AND MUNITIONS (AIR) GO 
AIRBASES (ARTILLERY-B1 and B2 BASES) BO 
AIRBASES (AIR) Bl ,B2 
AIRCRAFT Al ,A2,A3 
CENTRALLY CONTROLLED WEAONS SYSTEMS AND WARHEADS MO 
R FACTOR R1,R2,R3 
NOTE: 


GO RESULTS IN BOTH THE G3/G5 AND G4/G6 SYSTEM TABLES 
BEING PRINTED BY AJROUT. 

BO RESULTS IN BOTH THE Bl AND B2 SYSTEM TABLES BEING 
PRINTED BY ARTOUT. 

MO RESULTS IN BOTH THE MI AixD M2 SYSTEM TABLES BEING 
PRINTED BY BOTH AIROUT AND ARTOUT. 

THE Wi TABLES INCLUDE THE ROUNDS ASSOCIATED WITH EACH 
WEAPON SYSTEM. 

SITE INFORMATION IS INCLUDED WITH THE SPECIFIC MUNITION/ 
WEAPON SYSTEMS. 
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3 File Unit Numbers 
TAPE3, TAPES, and TAPE6 are the files used by these postprocessor 
routines. TAPE3 provides the data values from the processor as input, while 
TAPES accepts all control inputs. TAPE6 is the printed output file for both 
ARTOUT and AJROUT. 
4, Outputs 
The tabular output of AIROUT and ARTOUT will be discussed in 
Chapter V. 


F. POSTPROCESSOR (GRAPHC2 PROGRAM) 


Le Inputs 


The GRAPHC2 program generates printer plots of user selected vari- 
ables from the COMBAT-I|! output tape. Three types of control cards are 
required: a TITLE card which gives the title for a particular plot; an INDEX 
card specifying the variables to be plotted; and a TLIMIT card, specifying 
the time span for the graphs. 

The use of the TLIMIT card is optional. It may be used to specify 
the time span over which variable plots are desired. The default time span 
is the entire time span on the output tape. If the TLIMIT option is exercised, 
then the TLIMIT card appears as the first card, and has the following format: 
the word ''TLIMIT'' in CC1-6; a real number specifying the lower end of the 
plotted time span in CC11-20; and a real number specifying the upper end of 
the time span in CC21-30. Note that if the TLIMIT option is used, the time 
span is set for the entire run of GRAPHC2, and may not be changed again by 
the use of additional TLIMIT cards. 

The TITLE card is used in conjunction with the INDEX card. The 
TITLE card is printed verbatim as the title of the plot and has no format 
or key words associated with it. 

The TITLE card is immediately succeeded by its associated INDEX 


card. The INDEX card specifies from one to fourteen variables to be plotted 


over time on the same graph. The INDEX card uses the integer variable in- 
dices from the cross-reference listing generated by FORMS to determine which 
variables are to be plotted. An INDEX card may contain identifying infor- 
mation in CCI-10. The index numbers are right justified integers within 
five character fields for the remainder of the card. Thus, the first index 
appears in CC11-15, the second in CC16-20, the third in CC21-25, and so on 
to CC80. The program stops reading indices from that card upon encountering 
the first zero or blank index field. 

For those values that are the results of integrations, the actual 
value is plotted. If a minus sign is placed before the variable index number 
on the INDEX card, the rate of change of that variable will be plotted also. 


The order of appearance of the card input is illustrated in Figure IV-6. 


TLIMIT 
(OPTIONAL) 


Figure 1V-6. GRAPHC 2 Input Deck 


hid File Unit Numbers 
As in ARTOUT and AIROUT, TAPE3 provides initial values and TAPES 
all control inputs for GRAPHC2. TAPE4 is used to output all nongraphic in- 
formation, errors, data, etc., from this module, while TAPE6 is the perma- 
nent file for the plots generated. The plots are not written directly to 


system output. The user may either copy them to the output file using Job 


Control Language (see example, Appendix C) or catalog TAPE6 for later access. 


3.. Outputs 

The outputs are a table of contents of the graphs resulting from 
a run, the graphs themselves, and a list of the data points used to generate 
each graph. The table of contents prints the user supplied graph title and 
the page number of the printout where that graph occurs. In addition, the 
indices of the variables appearing on that plot are listed. 

The graph itself appears with time as the X axis and the data 
values as the Y axis. The Y axis scale is derived from the maximum and 
minimum values of the variables to be plotted. The spacing between steps 
will in no case, however, be less than five units. The first index value 
is plotted using the letter A, the second using the letter B, and so on. 
Intersections of curves will show the last letter plotted. That is, if 
two variables are plotted on the same graph and they intersect, then a 
B will be found at each point of intersection. 

The listing of the data used to generate the graph appears with 
the time of the data point at the left margin. The plotted values at that 
time appear on the same line. The listing immediately succeeds the plot 


of the data and is paginated. 
G. OPERATING NOTES 


In developing the COMBAT-I| system, certain operating procedures and 
parameter values have been identified as providing the most satisfactory 
results in terms of the realism and reliability of the model. 

(1) The computer core should always be cleared before programs are 
loaded. This is accomplished by including ''LDSET,PRESET=ZERO"! 
as a command in the Job Control Language for any run (see 
Appendix C). 

(2) The most realistic FEBA movements were achieved when the FEBA 
Shaping Factor, referred to in Chapter I!, (variable C0601X) was 
assigned the value .489. 


(3) 


Integration is performed using a Runge-Kutta algorithm as a 
driver to provide initial inputs to an Adams-Moulton Predictor/ 
Corrector algorithm. The integration routine examines the pre- 
dicted error which will result from an integration and may either 
halve or double the time step size, delta t, depending on the 


magnitude of this error. The integration routine was found to 


Operate most successfully given the following input parameters 
on the DEQ card. 

(a) TINC, COLLr=20 1.0 

(b) ERROR, CC31-40, Oi 

(c) ALPHA, CC61-70, ei 


CHAPTER V 
OUTPUT/ANALYS1IS 


A. INTRODUCTION 


The purpose of this chapter is to familiarize the user with the types 
of output that can be requested and to depict some examples of how this data 
can be used in an analysis. Before discussing these two areas, a descrip- 
tion of how an analysis using COMBAT-!1 should be conducted is in order. 

COMBAT-1! provides a flexible tool for the analysis of conflict situ- 
ations in a wide range of study contexts. Much of the model's flexibility 
is derived from the fact that all of the values used in the COMBAT-I! compu- 
tations are under user control, both initially and during the simulation run. 
The aeneration of a set of variable values which properly represent the 
situation to be studied is a stage in the use of COMBAT-II1 which must not 
be neglected. 

The analyst must perform preliminary analysis to develop a plan for 
the study which identifies the variables which will be modified, the times 
of modification, the sequence in which these modifications are to be applied 
to the simulation, and the initial and bounding conditions within which the 
study will take place. The user must always keep in mind that COMBAT-II is 
a highly coupled model and changes made in one vaiue will usually require 
corresponding changes in other values. 

To illustrate the range of problems that COMBAT-I! may address, consider 
the following three problems: 

(1) What is the impact of targeting 2nd Echelon Armies, in both 

conventional and nuclear modes, in a European conflict? 

(2) What is the most satisfactory nuclear artillery round stockpile 

level for use in a limited tactical nuclear mode? 

(3) What are the implications of removing the nuclear 155 mm round 


currently deployed in Europe? 
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COMBAT-|! can be used to gain some insights inte all three questions. How- 
ever, each question must be approached in a slightly different way if the 
maximum effectiveness of the model is to be achieved. 
le Question | 
In order to assess the impact of targeting 2nd Echelon Armies 
by long range weapons, these forces must be isolated from Ist Echelon 
Armies. COMBAT-I! does not keep track of forces by unit affiliation, and 
attrition is assessed uniformly to all forces in a front or the rear. 
Isolation is effected by supplying the appropriate initial input variable 
values representing the 2nd Echelon Armies as being in the ''REAR'' area. 
Figure V-] provides a schematic representation of this scenario. 
an Question 2 
Studying this question involves an analysis of artillery effective- 
ness when nuclear weapons are to be used only against Ist Echelon Divisions. 
Again the isolation of a particular type of unit is required, and in this 
case input values are chosen to place both 2nd Echelon Divisions and 2nd 
Echelon Armies in the ''REAR'' area, out of artillery range. Figure V-2 de- 
picts this arrangement. 
ce Question 3 
Initially this question appears to be quite similar to the second 
problem. It has been included to illustrate that a thorough analysis of 
the problem should always include a consideration of how the model treats 
the input data. COMBAT-I| treats the weapon systems available in a parti- 
cular front in a homogeneous manner, i.e. they are spread evenly across the 
entire front by type. This is acceptable as long as combat capability 
differentiations between corps in a front are not required. In this case 
however, the fact that the national components which make up the NATO forces 
have differing nuclear capable systems has a direct impact on the results 
of the COMBAT-I| analysis. 
The real question which must be addressed is whether or not there 
remains sufficient nuclear capability to meet an enemy threat after the 
removal of the 155mm round. In such an instance, care must be taken to 


ensure that each corps within a front has similar nuclear capabilities, since 
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COMBAT-I! will distribute these nuclear capabilities uniformly over the 
front, thereby masking possible deficiencies in nuclear capability. 
Preliminary analysis will reveal that certain national components 
of NATO have fewer nuclear assets than others. Therefcre, input data must 
be developed which represents the dissimilar nuclear capabilities of the 
NATO component forces as being in different fronts to permit the effects 
of those variations in unit capabilities to be observed. Figure V-3 depicts 
a possible arrangement of forces within COMBAT-I! fronts which segregates 


the NATO corps by nuclear capability. 


B. OUTPUT 


Two types of output can be requested: integrated values and the rates 
of change of those values. Normally, the integrated values are the pre- 
ferred type of output, though rates of change may react more dramatically 
to certain events in the course of a run and thereby provide stronger indi- 
cations of the effects of certain actions. 

As indicated in Chapter IV the inputs to the postprocessor enable the 


user to print any subset of the following tables: 


ot 


R Factor 

Gl - Ground Force Status 

Wl through W5 (for ARTILLERY) - Frontal Weapon System Status 
G3 - G4 (for AIR) - Frontal Weapon System Status 

Ml - M2 - Central Missile Systems 

B - Air Base Status 

Al through A3 - Aircraft Status 


Seem ae Ge (A ee aS 
on a wm & WwW Nh 
Pi I ied Ot Se 


G2 - Supply Status 

Tables may be printed for either or both sides, and may contain 
either variable values, or their rates of change. Except for the R Factor 
Tables the table titles have a standard format. As an example: 

SYSTEM Gl BLUE DATA 


is the title of the BLUE Ground Force Status Table. The R Factor Tables 


; 


70 


| HOI pez 
«x 


$O9 40 
XX 


[nos poz 


| xx 


HOF me] 
xx 


HOF PUT | 


‘mee 


| Fs AOSJHD3Z9 
HO3 me] HOZ 
ee 49 
ux 


ux 


Ayyiqede) seajony wuiggy jo Uonsjosy “¢-A eunbiy 


ONV183Z11MS 


xx 


vidisny 
ANVWH39 1S3M JONVES 


sao 4ig i sn 


HO3 WL | oe 


**€ INOW 


ae VID BL 


Sunoswaxnt 


VINVAO1SOHIIZ9 wnid138 


39 
[| ANOS] oe 
MOOHS 
SONVIUIHLIN 

xx 
| SQ5 puz 
| | HO3 ISL | 
| Kx 
! 
| 93/A0S/10d4 WIVL1V 40 S3xXV J18ve0ud 


coe 


| 
| 
| Lb 1s0u4 = 4 WHVWNIG 


NOWLWLIHdYILNI 1200W IVIHHI LIVd TYNOILON 


7) 


have titles indicating the front for which data is being presented, e.g.: 
R FACTOR AT FRONT 3 BLUE DATA 

In the description of these tables below, it is assumed that they con- 
tain values rather than rates except where rates always appear. 

Li R Factor 

The R Factor Tables are nearly identical for RED and BLUE. There 

are three tables for each side, one for each front. An R Factor Table 
contains the total ground force attrition rate and a breakdown of the systems 
which contributed to that attrition for both sides, as well as a total number 
of ground forces in the front for both sides. On a BLUE R Factor Table the 
numbers which apply to RED G1l's have ''+'' in their labels (e.g., TOTAL +6] 


LOSS is the total loss rate of RED Gl's when it appears on a BLUE R Factor 
Table and vice versa). In addition the steps made in calculating the r 


factor, are explicitly shown at the bottom of the table. 


De Gl - Ground Force Status 


There is one Ground Force Status Table for each side. It contains 


the total numbers of forces in the three fronts and the rear, the attrition 
on those forces broken down by those four areas, external resupply, and 


forces moved from the rear to the various fronts. This section is followed 


by a tabulation of the FEBA position and movement rate by front and then a 
section displaying the frontal and rear attrition broken down by causal 
system. A subtable summarizing the reinforcement supply and demand, a com- 
plete central command system table of available enemy targets, and acquired 
enemy targets given by weapon system and front concludes this table. 
3. Wi - WS (for ARTILLERY) - Frontal Weapon System Status 

Each Frontal Weapon System Table is divided into two similer 
sections. The first presents the total number of that type of weapon system 
by front, as well as demand for and supply of replacements for losses. 
External resupply appears also, followed by a complete summary of attrition 
by front and enemy weapon system causing the attrition. The second section 
contains almost identical information about the rounds for that frontal 
weapon system, except that attrition of rounds is always associated attrition, 
and is not kept according to the cause of the attrition. Also, a list is 


presented of the target types, by front, against which the rounds were fired. ; 


72 


4, G3 - G4 (for AIR) - Frontal Weapon System Status 


The above paragraph applies to these air version equivalents of 

Wl and W2. The corresponding rounds are G5 and G6 rather than RI and R2. 
5 Ml_- M2 - Central Missile Systems Status 

Each of these tables contain the status information about a missile 
type, launchers for that missile, and nuclear storage sites. Current 
totals, losses, and resupply are given, as well as the number of missiles 
per launcher and per site. A listing of the number of missiles launched 
against the various target types in the three fronts and the rear follows, 
and a summary of the causes of missile, launcher, and site attrition com- 
pletes the table. When nuclear release has taken place, the portion of the 
table showing the status of munitions has proven to be exceptionally useful 
in determining the causes of various outcomes. 

6. B - Air Base Status 

A single Air Base Status Table for each side displays information 
about forward and rear air bases and air munitions loads. For each type of 
base, the total number of bases is given as well as the number of each type 
of aircraft per base. The percentage of unrepaired base damage, an air base 
efficiency degradation factor and launch rate degradation by aircraft type 
appear as well. The munitions section includes the current inventory of 
both nuclear and conventional loads in addition to numbers used, lost on 
the ground, and resupplied from external sources. A record of the number 
of hours when nuclear loads were used is also provided. 

The air version of COMBAT-I! permits greater resolution of the 
air battle than the artillery version. Two launch rates may be input, one 
for the Bl bases and one for the B2 bases. Thus, the actual launch rates 
can. vary by air base type and aircraft type. In addition, conventional and 
nuclear munition loads are allotted by air base type. A specific number 
of aircraft are assiqned to each air base type. Aircraft launched from 
one type of base always return to that type. In contrast, the artillery 


version of COMBAT-I! continually reassigns returning aircraft to Bl or B2 


bases in accordance with an initial percentage input. 


bn Al - A3 - Alreraft Status 

The Aircraft Status Tables have an appearance similar to the 
Frontal Weapon Systems Status Tables. There is a separate table for each 
aircraft type. It contains the current number of aircraft, the number 
lost, and the number resupplied. A section for the air battle follows, in- 
dicating the number launched in air-to-air and air-to-ground roles and the 
losses to enemy air-to-air. The sorties carried out by survivors of the 
air battle against targets in the fronts and rear are then listed by target 
type. A summary of losses both to air defenses in the fronts and rear by 
target type, and to attack on airbases by enemy aircraft or missiles is 
provided as well. The ''t'' sign appears on this table too, and again has 
the meaning of ''opposite side,'' e.g., on a BLUE A3 table, "AG LOSSES DUE 
TO +AA'' means BLUE A3 in air-to-ground role lost to RED air-to-air. 
Whenever an aircraft type is not used in an air-to-ground role its launch 
rate in that role will be stored as zero. This suppresses the printing of 
data on targets attacked and losses to area or point defenses, since these 
would be irrelevant. 

8. G2 - Supply Status 

The Supply Status Table begins with a summary, by front and the 
rear area, of the total amount of available supplies, the total amount of 
supplies expended or lost, the fraction of the losses which are to be re-~ 
placed, tne cumulative totals of supplies moved from the rear to the fronts, 
and the amount of external supply. This summary is followed by a breakdown 
of the causes of supply loss by front and rear area. The amounts of supplies 
consumed and the losses of supplies due to associated ground force attrition 
if, presented by front. Finally, a recapitulation of the supply demand by 


front and the movement of supplies in response to those demands is presented. 


C. ANALYSIS 


In the remainder of this Chapter, example results of conflicts simu- 
lated by COMBAT-1! will be presented. The situations that will be depicted 


are taken from a variety of COMBAT-I! runs. Some are from actual analyses 
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and some are derived from situations contrived to test the model. They are 
presented to illustrate the array of insights that may be gained in utiliz- 
ing the COMBAT-!! model. 

We Situation 1] 

In the first situation, a fully-mobilized Side | force attacks 
an inferior force on Side 2. The forces are arrayed in three fronts with 
both sides giving priority to the attack or defense of Front 1. Side | 
is constrained by supplies and logistic capabilities, whereas Side 2 is 
constrained by inadequate reserve forces. Both sides use only conventional 
weapons, and the conflict terminates when Side | exhausts its supplies. 

An aggregate measure of the outcome of a theater conflict is a 
trace of the FEBA position. COMBAT-|! provides such an index for each of 
the three fronts. Figure V-4a details the ground gained by Side 1. Side 1's 
movement objectives for the three fronts are weighted towards Front 1 fol- 
lowed by Front 3. Side 2 defends with priority given to Front 1. 

A more detailed examination of the rate of movement of the FEBA 
at Front 1, Figure V-4b, gives a better picture of the effects of resource 
constraints. Side 2 slowed the rate of advance by deploying reserves to 
Front 1. These reserves, however, were eventually exhausted. Side 1] was 
unable to mass sufficient forces to overwhelm Side 2 before it ran out of 
supplies; the attack then ground to a halt. Here the rate of FEBA movement 
was more sensitive to changing combat conditions than the actual FEBA move- 
ment. The commitment of Side 2 reserves did slow the advance of Side 1, 
but not completely. Side 1's running out of supplies made his rate of 
advance drop off to zero, but only after he had advanced wel! into Side 2 
territory. Because the rate of advance was never large, these changes did 


not create bulges in the FEBA trace. 


aN Situation 2 
Having examined how COMBAT-!1! plays a conventiol war, this situ- 
ation shows how nuclear systems affect a theater conflict. In particular, 
it illustrates how variables such as weapon inventories, acquisition factors, 


weapon allocations, and expenditure rates interact to affect the overal] 


outcome of a theater tactical nuclear war. 
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This situation utilizes roughly numerically equal forces which 
are smaller in size than those in Situation 1. Side 1 initially preempts 
with its full array of tactical nuclear weapons and theater-allocated air 
forces. Side 2 responds in kind one hour after the attack. The advantage 
alternates between Side | and Side 2 while nuclear inventories last, but 
shifts to Side 1 after Side 2 nuclear systems are exhausted. 

Part of the benefit which may be derived from the COMBAT-I1| model 
is the ability to determine the causes of changes in the slope of the curves. 
This sample nuclear conflict highlights important sensitivities, some of 
which will be examined further in the next situation. 

A trace of the FEBA movement at Front 1 during the early stages of 
conflict, Figure V-5a, shows the effect of the Side | preemptive attack and 
the massive response by Side 2. Side 2 forces are initially pushed back 
while they are still in a conventional posture. After 1 hour, Side 2 re- 
sponds with its nuclear systems, recovers the lost territory and drives into 
Side 1 territory until the nuclear systems are exhausted. 

The alternation of movement shown in Figure V-5a, is due to the 
application and subsequent exhaustion of nuclear system resources. Ground 
force numbers are relatively stable, because casualties are being replaced 
by resupply from the rear. In Figure V~5b, each of the four components of 
the r factor which produced the movement shown in Figure V-5a is presented. 
Variations in Side | forces and the rate of attrition of those forces are 
represented with solid lines. The values from all four of these curves 
are necessary for computation of the r factor and the movement of the FEBA 
(see Chapter II, Section B). One can see the dramatic increase in the rate 
of attrition to Side 1 after Side 2 nuclear release occurs, and the subse- 
quent decrease in the attrition rate to Side 1 when Side 2 nuclear systems 
are exhausted. 

Se Situation 3 

Having highlighted some of the outputs revealed during the course of 

simulating a conventional and a nuclear conflict, this situation presents an 


example of how sensitivities may be examined using COMBAT-11. The first two 
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situations served to demonstrate COMBAT-|| operations. The following are 
excursions from a conventional conflict run of COMBAT-I1 to illustrate the 
model's ability to test nuclear force options and relative contributions 
of nuclear weapon systems in a theater context. 

The variation of force application affords insights into the doc- 
trine of selected nuclear release (Figure V-6a). In these excursions, the 
two sides released sets of similar nuclear systems after a certain point in 
the conventional conflict. This figure shows that Wl type weapons, when 
employed by both sides, provide Side 1 a greater advantage than Side 2. 
This was due to larger numbers in this case, but the outcome could have 
been caused by differences in weapon system qualities. 

When both sides employ their Wl and W2 weapon systems, the ad- 
vantage returns to Side 2. Note that when Side 2 employs WI, W2, and W3 
systems, it does not exhibit the same advance as with the WI and W2 systems. 
This implies that Side | incurs some advantage from the use of its W3 wea- 
pons system, although in this instance the advantage was insufficient to 
drive the FEBA into Side 2 territory. When all means of nuclear delivery 
are employed, aircraft and central missile systems, as well as frontal 
weapon systems, Side 1 is able to force the conflict into Side 2 territory. 

COMBAT-I! can also assist in resolving arguments about quantity 
versus quality. Shown in Figure V-6b is the operation of a current tactical 
system compared with hypothetical future deployments. A sevenfold increase 
in the number of systems deployed has relatively little impact on the con- 
flict, given prevailing operational constraints. Coupled with an improved 
single-shot probability of kill, however, the increased numbers have a 
dramatic impact on redressing a theater imbalance. 

The variation of system and force parameters in a theater model 
can be a powerful tool for study of the design and acquisition requirements 


for new weapon systems. 
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APPENDIX A 
COMBAT-IT - DICTIONARY AND TABLE INPUT 


_Weceding Fege Blavh -» 
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tt he ie 


C0010x 
C0020x 
C00350x 
Coouwox 
C00S0x 
Co0e0x 
CvUdoTox 
Co2ii1* 
Co0212x 
C0215x 
CO214x 
C9215*% 
CO216x 
CO217x 
CO0251x 
C025e2x 
CO233x 
CO023ux 
C0235x 
CO236x 
CO257x 
Cuedex 
Co02usx 
CO2uux 
c0251x 
CO2S5ex 
Ca255x 
Co25ux 
CO2S>x 
C0O256x 
C0257 
Co2si*x 
C0262 
C9263x 
C0264x 
COe6s* 
C92bb%K 
C0267x 
C0307x 
cosiix 
coSiex 
COS1i1 3x 
E60S21x 
C0S2ex 
C0523x 
CO60}x 
C0603x 
C0604x 
C0605x 
CUoUbXx 
CO607x 
C90610%x 
COo11x 
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£0511%x 
€oSitex 
EOS13x 
E0Si4ux 
E9521x 


(TR) 

(TR) 

CI) 

C18) 
(LL, B) 
(Kn,13) 
(Ku, 78) 
(Js,18) 
(JA,Io0) 
(J4,19) 
(Ja,I1n) 
(Jeib,IR) 
(Ja,e4, 7093) 
(J4,ee,I5) 
Cig TS 
Chis FRO 
(LL- Tn) 
CLL. Tt) 
(LL,<Le13) 
(LL,<",18) 
(LLp>an,]8) 
(Kw, I) 
(Ke, TH) 
(Ke, J3n,]s) 
Ch) 

(1) 

CEES 

(IR) 
(LLeIA) 
(Ke ,15) 
(Ka,]H) 
(35) 

(Ih) 

(TR) 

(lis) 
(LL,15) 
(Ke, TR) 
(K*,1B8) 
(MR, <K,18) 
(TR) 

(Ne ,73) 
(wkK,15) 
CT8) 

(Te) 

(Kw, 18) 


CIF TRY 
(IR) 
(IR) 
(148) 
CIR) 
(KR, 1S) 
(Kw, 8) 
(Ke, JB) 


(1H) 
Cre} 
(NK, 13) 
(NK,18) 
(1A) 


AIR DICTIONARY DECK 


PERCENT «NOWwLEDGE INITIAL OF Gek 
PERCENT «WOSLENGE INITIAL DF GIR 
PERCENT KNUWLENGE INITIAL JF GeR 
PERCENT «NOMLCEDGE INITIAL OF LCL) 
PERCENT KNGwLEDGE INITIAL JF w(K)F 
PERCENT KNOWLEDGE INITIAL JF w(K)R i 
RANGE FRACTIIN FIR ACJ)G AGAINST GIF 
RavsGe FRACTIIN FIR AC JIG AGAINST GeF 
RANGE FRACTION FIR AC J)G AGAINST GIR 
RANGE FRACTIIN FIR AC JIG AGAINST GER 
RANGE FRACTIAV FOR AC JIG AGAINST LOL) 
RAXrGE FRACTIAIN FIR AC JIG AGAINST w(K JF 
ROsGE FRACTIIS FIR ACJ)G AGAINST w(K)R 
RANGE FRACTIIN FIR LOL) AGAINST GIF 
Ra-Ge FRACTIVN FIR LOLI AGAINST Ger : 
RANGE FRACTT NV FIR LOLI AGAINST GIR 
RAGE FRACTITN FIR LCL) AGAINST G2R 
RANGE FRACTION FIR L(L) AGAINST L(K) 
RANGE FROCTIIN FOR LOL) AGAINST «(K)F 
R&%GE FRACTIIN Fliw LOL) AGAINST «(«)8 
WANGE FRACTI IN FIR alK)F AGAINST GIF 
MANGE FRACTIV FIR wCK)E ASAINST G2F 


PERCENT «NDwLEOGE INITIAL OF GIF | 
! 


FAVGE FRACTIVV FIR w(KDF AGAINST w(J)F 
PLY OF “ELE EVV Ne 
FLOe iF SeF JATD MA 
PL iw OF BYR Ter SA 
FLa YE ek TNT) va 
PRS UPL Tey and 


Fula JF +» (KF TNTU Wa 

FLils OF x CK)R TNTO wa 

FLO OF GE ul uF NA 

PL se ue See JuT Oe wa 

PLM OF GIR OUT UF vA 

FLO4 MF gee DT JE NA 

FEY BF ECE Dull OF NA 

Fid* Ne wl FE wT Rid WA 

FL Je WF w(K V2 V1 DF va 

COUPLING CHEF = 3") ATTACKS TO A/C LAUNCH OEG, FACTOR 
CIVPLIVG CiEF, © AY LOSSES TO 4B(1) LUSSES 
COUPLING COFF, = Ausa5 LOSSES TU aB(2) LOSSES 
CYUPLING CUFF, = Au/AS LOSSES TO AB(3) LOSSES 


CQuPLI* 
MAXT MUM 
“Ax Tue 


S Carrs = 
DESTRFARLE 
w(K) PER 


G2 LISSES T3 Gi LOSSES 
S@ PER GIF 
G1 


SHAPTNG FACTIR FOR FEBA “OVEMENT 

COUPLING COEF, © GIF(I) ATTRITION LOSSES TO GIF(I) DEMAND 
veEMaAnND SCALE FACTOR 

DFMAUD RESPONSE UNTT CONVERSION FACTOR 

NUMBER DF GP UNITS PER G1 UNIT 

PIWTION OF GA EXPENDITURES AND LOSSES TO BE REPLACED 
MAXIMUM ROK) PER W(K) 

PORTION OF w(K)F LOSSES TO BE REPLACED 

PORTION JF R(K)F LOSSES and EXPENDITURES TO BE REPLACED 


EXPENDITURE RATE UF AY PER AA 
EXPENDITURE SATE UF AU PER AG(1) 
EXPENDITURE RATE UF 44745 PER AG(2) 
EXPENDITURE RATE OF AU/AS PER AG(3) 
EXPENDITURE RATE OF G2 PER Gi 
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FOSO0Sx 
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PU0O0UX 
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PO507x 
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PO4O4X 
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ROGOIX 
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ROS7TIX 
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(LL,1B) 
(LL,18) 
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(JA,NK,18) 
(J4,NK,18) 
(JA,NK,1B) 
(JAr LL NB) 
(JA,“4B,NS) 
(Ib) 

(1B) 

CIB) 

(TB) 

(18) 


(MB, JA, 16) 
(LL, 18) 
(Ib) 

(1B) 

(MB, JA, 1B) 
(MB, NK, 1B) 
(1B) 

(1B) 

(1B) 

(1B) 

CLM, 1B) 
(LL, 18) 


FRACTIUN UF 
FRACTION UF 
FRACTIUN OF 
FRACTIUN UF 
FRACTIUN UF 
FRACTIUN UF 
FRACTION OF 
FRACTIUN UF 
FRACTIUN UF 
FRACTION UF 
FRACTION OF 
FRACTION UF 
FRACTIUN UF 
FRACTIUN UF 
FRACTIUN UF 
FRACTION UF 
FRACTION UF 


AR(J) ALLICATED 
AR(J) ALLICATED 
ARK(J) ALLJCATED 
AREA AIR DEFENS 
ACJ)FCI) ASSIGN 
ACIJFLI) ASSTGN 
LCL) ALLICATED 

L(LIF ALLOCATED 
LCLIFCI) ALLOCA 
L(LIR ALLOCATED 
L(LJR ALLICATED 
LC(LIR ALLUCATED 
L(LIR ALLOCATED 
L€LIJ=— ALLICATED 
G3 ALLICATED AG 
GG ALLICATED AG 
MAX, FEBA RATE 


PRUBABILITY DOF 
PROBABILITY OF 
PRUBABILITY OF 
PROBABILITY OF 
KILL FACTOR = 
KILL FACTUR « 
SSPK = AREA 
TERMINAL 
TERMINAL 
TERMINAL 


DETECTIUN = 
KILL © AACJ) 
DETECTIUN = 
KILL © AA(J) 
AG(J) AGAINST 
AG(J) AGAINST 
AIR DEFENSE AGA 
DEFENSE PK = Gi 
DEFENSE PK = Ge AG 
DEFENSE PK = S AGA 
TERMINAL DEFENSE PK = 
TERMINAL DEFENSE 
KILL FACTUR = m(L) 
KELE FARETOR = MCL) 
AILL FACTUR @= “(L) 
KILL FACTUR = M(L) 
KILL FACTOR © (L) 
KILL FACTUR © M(L) 
KILL FACTOR “CL ) 
KILL FACTOR AG(J) 
KILL FACTOR AG(J) 
KILL FACTUR AG(J) 
KILL FACTOR AG(J) AGAINST 
KILL FACTUR AG(J) AGAINST 
KIJLL FACTOR G1 ALAINST G 
KILL FACTUR GS AGAINST & 
KILL FACTUR G4 AGAINST G 
KILL FACTUR G3 AGAtNST G 
KILL FACTOR G4 AGAINST G 


AGAINST 
AGAINST 
AGAINST 
AGAINST 
AGAINST 
AGAINST 
AGAINST 
AGAINST 
AGAINST 


MAXIMUM DESIRED LAUNCH RATE 
MAX, DESIRED MISSILE LAUNCH 
MAK, DESIRED LAUNCH JR FIRE 
MAX, DESIRED LAUNCH JR FIRE 
EXTERNAL RATE OF SUPPLY OF 
EXTERNAL RATE OF SUPPLY OF 
EXTERNAL RATE JF SUPPLY OF 
EXTERNAL RATE OF SUPPLY OF 
EXTERNAL RATE OF SUPPLY OF 
EXTERNAL RATE OF SUPPLY OF 
EXTERNAL RATE OF SUPPLY OF 
EXTERNAL RATE OF SUPPLY OF 
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TO S 
TO LED 
TD BM) 
E SEEN 6Y 
EO TU ‘GIF G2) 
ED TU GeFCI) 
TD FRONT 
TO-Fite) 
TED IO GIFCI) 
TU GiRk 
TU G2R 
TW £069 
To S$ 
TO BC) 
AINST of 
AINST G1 
CIMMANDED FOR F(1) 


~ER@= ATIACKE 


AA(J) AGAINST 
AGAINST AA(K) 
AA(J) AGAINST AG(K) 
AGAINST AG(K) 
G1F 
GF 
INST 


RA(K) 


AG(J) 


AGAINST AG(J) 


AINST AG(J) 
INST aG(J) 
AGAINST AGS(J) 
AGAINST AG(J) 
G1iF 

GeF 

Gir 

Ger 
L(K) 
N) 

A/C UN 8%) 
G1R 

+e- 

> 

a @ 

A/C ON B(M) 
1 

1 


OF A(J) JN B(M) 
RATE FOR L(L) 
RATE OF G3 
RATE OF G4 

A(J) TO B(M) 

TU B(M) 


RO601X 
R0602Xx 
R0603X 
ROOO4XK 
RO605X 
RO700X 


VOS41x 
¥OSa5x 
VOSS1X 
vosS2x 
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A0002P 
AO0LOIP 
a0102P 
AOLOSP 
A01OUP 
A0105P 
A0106P 
A0107P 
A0Q3014P 
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AOSO3P 
A0304P 
AQ30SP 
A0306P 
AOQ3O7P 
A0306P 
A0S2\1P 
A0322P 
A0323P 
A0324UP 
A0325P 
A0326P 
A0327P 
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A0GOIP 
A04O02P 
A0GO3P 
AQ4GOUP 
A0GOSP 
AOSOIP 
AOS1IP 
A0S12P 
AOS13P 
AOS44P 
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A0S16P 
AOS17P 
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AQS3iP 
A0S32P 
AOSS3P 
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adSaye 


(1B) 
(18) 
(1B) 
(1B) 
(MB, 1B) 


(LL, 1B) 
(LL,18) 
(IB) 

(18) 
CIF,1B) 
(JC,18) 
(JC,1B) 
(NA, 1B) 
(JA, 1B) 
(JA, 1B) 
CIF, 34,18) 
CIF,JA,1B) 
(JA, 1B) 
(JA,1B) 
(JA,IB) 
(LL, JA,18) 
(MB, JA,18) 
(LL,>IF,18) 
(LLeIF,1I8) 
(LL,/IB) 
(LL,I8) 
(LL»><L,18) 
(LL,1B) 
(LL, JA,18) 
(LL,JA, 18) 
(JaA,IF,18) 
(JA, IF,18) 
(J4,18) 
(JA, IB) 
(JA,1B) 
(JA,LL, 18) 
(JA,KA,1B) 
(JA, KA, 18) 
CIF,1B) 
CIF,18) 
CIF,1B) 
CIF,1B) 
CIF,1B) 
CIF,1B) 
(JA, IB) 
(JA, IB) 
(MB, JA,1B) 
(JA, 18) 
(MB,18) 
(MB, 1B) 
(MB, JA, 1B) 
CIF,18) 
CIF,1B) 
(18) 

(18) 

(1B) 

(18) 

(LL 18) 


MAXIMUM FEBA MOVEMENT RATE 


MAXIMUM RATE OF FLOW OF GL FRUM R TDF 
MAXIMUM RATE OF FLUW JF G2 FROM R TO F 
MAXIMUM RATE OF FLOW OF GS FROM R TO F 
MAXIMUM RATE OF FLOW JF Go FROM R TO F 
REPAIR RATE PER 8() 

NOMINAL NUMBER UF M(L) AT Ch eb) 


EA 
AMOUNT OF M(L) IN TRANSIT IN 
AMOUNT OF GS IN TRANSIT IN R 
AMOUNT OF Go IN TRANSIT IN R 
MAXIMUM USABLE G1 IN F(I1) 
INITIAL CUNDITIUONS FOR COMMUDITIES 
COMODITIES V AND Dv 

ACQUIRED TOTALS AV AN) Day 


ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITIUN 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITIUN 
ATTRITION 
ATTRITION 


AA ON A(J)A 

AA ON A(J)G 
GIFCI) UN AC JIG 
Ge2F( I) UN A(JIG 
GIR ON ACJ)6 
GeR ON A(JIG 

S ON ACJ)G 

LCL) UN ACJ) 
B(M) ON A(J)G 
M(L) ON GIFCI) 
M(L) ON GeF(I) 
M(L) UN GIR 
M(L) JN GER 
REED ON tiny 
MCL ONS 

M(L) ON ACJ) 81 
M(L) ON A(J)B2 
A(J)G JN GIF(1) 
A(J)G JN GeF(1) 
AC J)G JIN GIR 
A(J)G ON GeR 
A(J)G IN S 
ACJ)G JN LOL) 
ACJ)G ON ACI) 81 
ACJ)G ON AC I1)B2 


ATTRITION GIF(I) ON GIF(I) 

ATTRITION G3FCI) UN GIFCT) 

ATTRITION G4FC(I) UN GIFC(I) 

ATTRITION G3F(I) UN GeFC(1) 

ATTRITION G4UF(I) ON GeF(I) 

TOTAL DIRECT ATTRITIIN GIF(I) 

ATTRITION AA ON ACJ) 

TUTAL OIJRECT ATTRITIIN ON AC J)GS 

TOTAL DIRECT ATTRITION SF ACJ)B(M) ON THE GROUND 
TOTAL DIRECT ATTRITIJN ON ACJ) 
ASSOCIATED ATTRITION OF AB(M) ON AGB(M) 
ASSOCIATED ATTRITION OF AB(M) ON ASB(M) 
TOTAL DIRECT ATTRITION OF ACJ) +80) 
TOTAL DIRECT ATTRITION ON GeF(I) 
ASSOCIATED ATTRITION GIF(I) JON G2F(I) 
TOTAL DIRECT ATTRITION ON GIR 

TOTAL DIRECT ATTRITION ON GeR 
ASSOCIATED ATTRITIUN GIR UN G2R 

TOTAL S ATTRITION 

TOTAL DIRECT ATTRITION OW L(L) 
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AQS42P (LL+18) ASSOCIATED ATTRITION LCL) IN MCL) 


A0S43P (LL,I8) ASSOCIATED ATTRITION SITE IN MCL) 
AQS44P (LM,18) GeR ASSOCIATED ATTRITION OF 4(L) 
AOSSIP CIFa lS) ASSOCIATED ATTRITION GeF(CI) ON GSFC(1) 
A0SS2P (IF,18) ASSOCIATED ATTRITION GeFCI1) IN GoF (I) 
AO0SoIP (18) ASSOCIATED ATTRITIJUN GER UN GSR 
A0So62P (Ib) ASSOCIATED ATTRITIIN GER ON Gok 
A0S63P (IK) S ASSUCIATED ATTRITIIJN JF G5R | 
A0S64uP (IB) S ASSOCIATED ATTRITIJN UF GoR 
EOSLIP (MB, 1B) EXPENDITURE QF AUB(M) 
E0S12P (MB,I8) EXPENDITURE OF ASB(M) 
E0S5Se1P (1F,IB) EXPENDITURE RATE OF GeF(I) 1 
EO0SSIP CIF, 18) EXPENDITURE RATE UF GSF(I) 
E0SS2P (IF,16) EXPENDITURE RATE OF GoF (I) 
ROOOLP (JA,%B,18) TOTAL AC JJBC4) LAUNCH RATE 
ROOO02P (JA,IB) RATE EAC J)A 
ROOOSP (JA, 1B) RATE EAC J)G 
ROVOUP (JA,I 5) RATE EAC J)GS 
ROOOSP (IB) TOTAL 4B(M) LAUNCH RATE 
ROOU6BP (JA,%B,18) LAUNCH RATE OF A(J)B(4) wITH aa 
ROOO7P (JA,“%8,18) LAUNCH RATE OF ACJ) 604%) WITR AS 
RO3OIP (LM,IF,I8) FLOW M(L) AGAINST G1 IN F(1) 
RO3Z0e2P (LM, IF, IB) FLOW M(L) AGAINST Ge IN F(1) 
ROS503P (L™,IB) FLOW M(L) AGAINST G18 
RO30GP (LM,14) FLUW M(L) AGAINST GeR 
RO3SO0SP (LM,KL,1B) FLUW M(L) AGAINST L(K) 
RO306P (L™,16) FLOW M(L) AGAINST 4(4) 
RO307P (LM,%B, 1B) PLUM M(L) AGAINST 38(%) 
ROS21P (J4,1F,18) FLOW OF AG(CJ) AGAINS!I GIFCI) 
R0S322P (JA,IF, 18) FLOW OF AG(J) AGAINST GF (I) 
RO0323P (JA,18) FLUW OF AG(J) AGAINST GIR 
RO3S24UP (JA,1B) FLUW OF AG(J) AGAINST GeR 
RO3S25P (JA,18) FLUM OF AG(J) AGAINSI 5S 
RO326P (JA,iL, 18) FLOw UF AG(J) AGAINST LCL) 
R0527P (JA,4B,18) FLOW OF AG(J) AGAINSI 6(™) 
ROGYOIP (CIF,1B) FEOW UF GSECI) FROM FCLJ TO GIF EL} 
RO4O2P (IF,1B) FLOW OF GOFC(I) FROM FCI) TO GIFCI) 
ROGOSP CIF,18) FLOW )F GSFCI) FROM FCI) TO GeFCI) 
ROGOUP (CIF,1B) FLOW OF GeEC(l) FROM FCI) TO G2FCl) 
ROSGIP (LL,18B) TOTAL FLOnw M(L) FROM 8 
ROS71P (MBb,JA,IB) EXTERNAL RATE OF SUPPLY OF A(J)B(M) 
ROS7T2P (MB,NK,18) EXTERNAL RATE OF SUPPLY OF A(N)B(M) 
ROS74P (IB) EXTERNAL KATE DF SUPPLY OF G1 
ROS75P (JB) EXTERNAL RATE JF SUPPLY OF Ge 
ROS76P (JB) EXTERNAL RATE OF SUPPLY OF GS 
ROS77P (1B) EXTERNAL RATE OF SUPPLY UF Gob 
ROS78P (LM,18B) EXTERNAL RATE JF SUPPLY OF M(L) 

} ROS79P (LL,18B) EXTERNAL RATE OF SUPPLY OF L(L) 
RO6O01P CIF,I18) FLOW UF GIR TU FCI) 
RO602P (I1F,1B) FLOw OF GeR TO FCI) 
RO603P (IF,18) FLOW OF GSR TO F(1) 
ROOOUP (IF,IB) FLOw UF GoR TU FC(1) 
COO01P (JA,KA,18) A(J)A SURVIVAL PRUBABILITY AGAINST A(K)A 
CO00e2P (JA,KA,I1B) A(J)G SURVIVAL PROBABILITY AGAINST A(K)A 
COOO3P (LM,1B) DEGRADATION FACTOR AT B(M) 
CO601P (1F,18) R FACTOR FOR F(I) FEBA MOUVEMENT 
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DOoOIP CIF,18) 
DQ60e2P (IF,1B) 
DOoO3SP (CIF,186) 
DOCO4P (IF,I1B) 


DEMAND FOR GIR FRUM F(I1) 
DEMAND FOR G2R FRUM FC(1) 
DEMAND FOR GSK FROM F(T) 
DEMAND FOR GoR FROM F(1) 


FOLOIP (JAe IF, 18) 
FOLO3P (JA,IF,-18) 
FOLOSP (JA, IF,18) 
FOLO6P (JA,1B) 
FOLO7P (JA,I1B) 
FO1OB8P (JA,I1B) 
FOLV9OP (JA,LL1B) 


FRACTION OF AF(J) TQ FCI) 
FRACTION OF A(J)GS TD GIF(1) 
FRACTION OF A(J)GS 19 GeF(I) 
FRACTION OF A(J)GS TJ G1R 
FRACTION OF A(J)GS 1) GeR 
FRACTION UF AC(J)GS TJ) S 
FRACTION OF ACJ)JGS TD LCL) 


FOL1LOP (JA,%B,18) FRACTION OF A(J)GS TJ BC) 
FO3O1P (LL,IF,-1B) FRACTION ECE FCI? 10 G3 
FO302P (LL,IF,18) FRACTION L(L)FC1I) TU Ge 


FOSOSP (LL,18) 
FO304P (LL,18) 
FO3OSP (LL,KL+IB) 
FO306P (LL,IB) 
FO307P (LL,“B,18) 
FO321P (MB, JA,1B) 
FO322P (MB, JA,1B) 
FO323P (JA,NK,1B) 


FRACTION LECLOR TQ 62 

PRACTION ECL IER Ta Ce 

FRAGTIDN LCL IR TO Lk) 

FRACTION L(L) TO S$ 

FRACTION L(L)R TI BC) 

FRACTION UF ACJ)A FRIM ACJ)BCM) 
FRACTION UF AC(J)G FROM ACJ) BM) 
FRACTION UF ACJ)G CARRYING ACN) 


PO101P 


(JA, IF, 1B) 


ACQUISITIUN FAC 


TIR ACJIG ON GIF(I) 


P0102P (JA,IF,IB) ACQUISITION FACTJR AC JIG ON GeF(I) 
PO1LO3P (IF,JA,IB) KILL FACTUR = GIF(I) AGAINST A(J)G 
PO104P (IF,JA,18) KILL FACTUR = GeFC(I) AGAINST A(J)G 
POLOSP (JA,18) KILL FACTUR = REAR AREA AGAINST a(J)G 
POLO6P (JA,18) ACQUISITION FACTIR ACJ)G ON GIR 
POLOBP (JA,1B) ACQUISITIUN FACTOR A( JIG ON GeR 
POLLIOP (JAy,LL, 18) ACQUISITION FACTOR FIR AC JIG UN LOL) 


PO3SOIP (LL>IF,18) ACQUISITION FACTIR L(L) ON GIF(I) 
PO302P (LL,IF,18) ACQUISITION FACTIR LIL) ON GeF(1) 
PO303P (LL,1B) ACQUISITION FACTIR LCL) ON GIR 
PO304P (LL,JB) ACQUISITIUN FACTOR L(L) UN G2R 
POSO5SP (LL-KL-1B) ACQUISITION FACTIR LCL) ON LK) 
PO402P (CIF,I1B) ACQUISITION FACTUR GSFC(I) ION GIFC(]) 
POYOSP (IF,1B) ACQUISITIUN FACTIR G3F(I) IN GF (1) 
PO4YO4UP (IF,IB) ACQUISITION FACTJIR G4F(I) UN GIFCI) 
POGOSP (IF,IB) ACQUISITION FACTOR G4F(I) IN GeF(I) 
VO301P (MB,18) TOTAL NUMBER JF A/T JN 3(M) 

VOGO1P (IF,IB) G3F C(I) 

VO4OeP (IF,18) G4F (1) 

VOS4G1P (LM,1B) NUMBER OF M(L) PER LCL) 

VOSueP (LM,18) NUMBER OF M(L) IN SITES 

YOSGSP (L,1B) NUMBER OF M(L) IN TRANSIT 

VOoOO1IP (IF,1B) DESIRED AMOUNT OF Ge Al F(1) 
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FUCOLM 35 4 FRACTION JF AILR@TUSGROUND IN FRUNT 1 SENT [3 GROUND FORCES 
FO201xK 3 2 IN FRINT 2 ; 

FOZOTx 3 3 IN FRINI 5 

FU2G2xX 3 } FRACTIJN JF AIR TO*GRUOUND IN FRONI 1 SENT TD SUPPLIES 
FOECOEX. Az IN FRINI 2 

FO202x 3 3 IN FRONT 3 

COel1ix 3 FRACTION JF FRUNTAL FORCES IN UPERATIIJNAL KANGE 

CO212x 3 FRACTION JF FRONTAL SUPPLIES IN JPERATIONAL RANGE 

POLOSX 3 1 PRUBABILIIY UF NUC KILL JON FRONTAL GROUND + ORCES 

PO101X 3 2 UF CUNV KILL 

PO102X 3 1 DF NUC KILL ON FRONTAL SUPPLIES 

P0102x 3 2 OF CONV AILL 

FOLOIX 31 FRACTION JF AITReTU@GRUUND SENT [9 THE REAR 

FO10O4UXx 3 FRACTION JF alReTO=GROUND IV THE REAR SENT AaGAINS! GROUND FORCE 
FOLUSX 3 aGaINST SuPrLIES 
FOL06x% 3 © aGAINST SToRaGt 
FOLO7TX 3S 4 AGAINST (=e wba Om 
FO107x 3 2 AGAINST (o@ wee 
FO1084A 3 1 AG&l NS eae 
FO108x 3 2 aGajv3S? 

CO213x 3 FRACTION UF REAR GROUND FORCES IN JPERATIONGL Ban 

CO214x 3 JF REAR SUPPLIES 

C0215% 3 1 JF L#R aEAPON SYSTEM } 

CO215x% 3 2 JF LeR wEAPUN SYSTEM @ 
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P0323x 
P0323Xx 
PO032ax 
PO324X 
P0325X 
P0325x 
P0326Xx 
P0326Xx 
P0326x 
PO326X 
P0327X 
PO327XK 
P0327x 
PO327X 
C0307x 
CO307Xx 
CO307x 
C0307x 
END 


PUN OO at Ws tt 


Mure eK we 


PROBABILITY OF NUC KILL ON REAR GROUND FORCES 


FACTOR FOR 
FOR 
FOR 
FOR 


OF CONV KILL 

OF NUC KILL JN REAR SUPPLIES 

OF CUNV KILL 

OF NUC KILL ON STORAGE SITES 

OF CONV KILL 

OF NUC KILL ON L®R WEAPON SYSTEM 1 

OF CONV KILL 

OF NUC KILL UN L®R WEAPON SYSTEM 2 

OF CUNV KILL 

OF NUC KILL ON AIRCRAFT ON FURWARD 4SASES 
DF CONV KILL 

UF NUC KILL ON AIRCRAFT UN LONG RANGE BASES 
OF CONV KILL 

NUC DAMAGE TO FORWARD BASES 

CONV DAMAGE 

NUC DAMAGE TO LUNG RANGE BASES 

CONV DAMAGE 


NOTES: The -5 indicates that the variable is unsubscripted. 


The -1 indicates that the valueis 1 minus the value 
of the variable with the same name and subscript. 
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ARTILLERY DICTIONARY DECK 


CO010xX (1B) PERCENT KNOWLEDGE INITIAL OF GIF 
co020x (1B) PERCENT KNOWLEDGE INITIAL OF GeF 
COO03S0xX (18) PERCENT KNOWLEDGE INITIAL JF GIR 
COO4OX (1B) PERCENT KNOWLEDGE INITIAL OF GeR 
Coosox (tt,18) PERCENT KNOWLEDGE INITIAL DF L(L) 
CO211xX (JA,IB) RANGE FRACTION FOR A(J)G AGAINST GIF 
Co2iex (JA,1B) RANGE FRACTION FUR ACJ)G AGAINST G2F 
CO213X (JA,I8B) RANGE FRACTION FOR ACJ)G AGAINST GiRk 
CO214x (JA,18) RANGE FRACTION FOR ACJ)G AGAINST GeR 
C0215X (JAsLL- 18) RANGE FRACTION FOR ACJ)G AGAINST L(L) 
CO235ix (LL,IB) RANGE FRACTION FOR L(L) AGAINST GIF 
Co232x (LL,IB) RANGE FRACTION FOR L(L) AGAINST G2eF 
CO233x (LL,IB) RANGE FRACTION FOR L(L) AGAINST GIR 
CO234xX (LL,IB) RANGE FRACTION FIR L(L) AGAINST GeR 
CO235X (LL,«KL-18) RANGE FRACTION FOR LCL) AGAINST L(K) 
C0242K (IB) RANGE FRACTIIN FOR GSF AGAINST GIF 
CO243x (IB) RANGE FRACTION FOR GSF AGAINST Ger 
Co24ux (1B) RANGE FRACTION FOR GUF AGAINST GIF 
CO24S5x (Ib) RANGE FRACTION FOR GUF AGAINST G2eF 
co2six (18) FLUW OF GIF INTU NA 
Coesex (1B) FLOw OF GeF INT NA 
CO253x (1B) FLOW OF GIR INTO NA 
cCO254x (18) FLOW UF GeR INT) NA 
CO255x (LL,I18) FLUW OF L(L) INT) NA 
CO261x (IB) FLOW OF GIF QUT OF NA 
CO26ex (IB) FLOW OF Ge2F JUT OF NA 
C0263x (IB) FLOW OF GIR Jul UF NA 
CO264xX (1B) FLOW OF G2R QUT OF NA 
CO265xX (LL,18) FLOW OF L(L) JUT UF NA 
COSO07X (MB,NK,IB) COUPLING COEF = 38(4) ATTACKS TU A/C LAUNCH DEG, FACTUR 
CO406x (1B) UNITS OF G3 PER UNIT OF G1 
CO407X (IB) UNITS OF GY PER UNIT OF G1 
COS’1ix (1B) COUPLING COEF. = AU LOSSES TU AB(1) LUSSES 
CO512x (NK,I1B) COUPLING COEF. = AU/AS LOSSES TO AB(2) LUSSES 
C0513xX (NK,I1B) COUPLING COEF. = AU/AS LOSSES TU AB(S) LOSSES 
Co521x (18) COUPLING COEF. = G2 LOSSES 19D G1 LOSSES 
C0S22x (18) MAXIMUM DESIRABLE Ge PER GIF 
COSSixX (18) COUPLING CUEF. = GS LIUSSES TJ G2 LOSSES 
coss2x (18) COUPLING COEF, = G6 LJUSSES 12 G2 LUSSES 
C0601x SHAPING FACTOR FOR FEBA MOVEMENT 
CO605x CIF,IB) COUPLING COEF, © GIF(I) ATTRITIUN LOSSES TO GlF(1) DEMAND 
COe04x (1B) DEMAND SCALE FACTUR 
CO605xX (18) DEMAND RESPONSE UNIT CUNVERSION FACTOR 
C0606xX (18) NUMBER OF G2 UNITS PER G1 UNIT 
CO607X (IB) PORTION DF G2 EXPENDITURES AND LOSSES TO BE REPLACED 
CO610X (18) NUMBER OF GS UNITS PER Gi UNIT 
CO611x (1B) PORTION OF GS EXPENDITURES AND LOSSES TO BE REPLACED 
C0613X (1B) NUMBER OF G6 UNITS PER G1 UNIT 
CO614xX (16) PORTION OF Go EXPENDITURES AND LOSSES [U BE REPLACED 
E05iix (1B) EXPENDITURE RATE UF AY PER AA 
E0512x (JA,NK,1B) EXPENDITURE RATE OF ACN) PER A(J)G 
E0S21x (18) EXPENDITURE RATE OF Ge PER Gl 
FOOOIX (JA,1B) FRACTION OF ACJ) ALLOCATED TO GRUUND ATTACK 44#SS¢0N 
FOLOLX (Ja,1B) FRACTION OF AGS(J) ALLOCATED TO AF(J) 
FO102X (1B) FRACTION UF AREA AIR DEFENSE SEEN BY GIF ATTACKE®@ 
FO103xK (1B) FRACTION OF AREA Al@ DEFENSE SEEN BY G2F ATTACKE= 
FO1OUX (JA,1B) FRACTION OF AR(J) ALLOCATED TO +1e 
FOLOSK (JA,1B) FRACTION OF AR(J) ALLOCATED TO #22 
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FOoO001xX 
FOLO1X 
FO0102x 
FOLO3x 
FO104x 
FO.OSK 
F0106x 
FOLOTK 
FOJOBx 
FOLU9x 
FOLLux 
FOL11x 
Fuedix 
Fo20ex 
FO2USx 
FOSuix 
Fo30ex 
FO303x 
FO304Gx 
FOSUSx 
FO306x 
FoOSO7xX 
FO3S084 
FO309x 
FOS10x% 
FOS) 4x 
FO31Ex 
FOa0eXx 
FOUG 5x 
FOu04aX 
FO0601x 


POOUIX 
P0002Xx 
P0004Sx 
P000ux 
PO101x 
PO1L02Xx 
PO0103x 
POiOux 
P0105x 
PO107x 
POL OBX 
PO109x 
PO110x 
Pu301%x 
P0302x 
P0303x 
P0304Ux 
PO305*% 
P0306x 
PO307x 
PO306x 
P0309Xx 
PO0323xK 
PO32ux 
PO325x 
P0326x 
P0327x 


(J4,18) 
(Ja,13) 
(Ik) 

(Te) 
(Ja,ts) 
(J4,18) 
(J4,18) 
(JAeLL,13) 
(J4,“4,I138) 
(1) 

(Ka, TR) 
(14,404,118) 
(J4A,1F,18) 
(1A,1F,15) 
(Jo,18,1%) 
(LLeIA) 
CLES TE EES) 
(LLeIJF,1A) 
(Li,Tou? 
(LLoTS) 
(LU,<b,13) 
(LL1A) 
(Li e“Se Is) 
(J4,°8,19) 
CLL «TS, 18) 
C(LLe<%,In) 
(LL,TF,I1S) 
(<4,7Tb) 
(Ka, TB) 
(Ke, J*,15) 
CIF,I8) 


(Ja,<4,15) 
(Ja,“<Aa,IJ5)} 
(JA <A,14) 
(JA, «A,I8) 
(J4,-K,1] 8) 
(Jo,*%,I1K8) 
(JA,1B) 
(JA,IR) 
(J4,78) 
(JaA,JH) 
(LL,JA, IB) 
CAR, JA, T®) 
(Ke, J&,]3) 
(LL,TB) 
(LiL, is) 
(Lt,18) 
(LL,18) 
(LLe<L,I¥) 
(LL, 15) 
(LL, “B8,148) 
(LL,<4,18) 
(LL»<*,16) 
(JA, VK,18) 
(JA, vK,I18) 
(JA, NK,1B) 
(J4,LbL.NB) 
(J4,“B,%8) 


FRaCTIOn 
FRACTIIN 
FRACTION 
PRACTION 
PRACTIOUIN 
FRACTIIN 
FROACTIIAN 
FRACTI ‘4 
FRACTIUIN 
FRACTION 
FRACTION 
FQACTI] AWN 
FRACTION 
FraCT] Oy 
PRACTJ]UN 
PRaCT [Ow 
FRACT].%% 
FRACTION 
FRACTION 
FRACTION 
FRACTIIIN 
FRACTY] IN 
FRACTI Jv 
PRACT I" 
FrAaCTIoy 
FeaCTIUN 
FRACTITON 
Foaciry dy, 
FRAaCTI: 
FeaCTI Nv 
FRACT] IN 


UF 
UF 
IF 
(iF 
OF 
OF 
ie 
fe 
iF 
OF 
UF 
(ie 
UF 
uF 
OF 
UF 
oF 
ile 
ie 
OF 
OF 
tye 
Oe 
ve 
ais 
ue 
vie 
ve 
tie 
tir 
(ie 


PRIAAKILITTY 
PROBARILITY 
PR UBABRILITY 
PRURABILITY 
KILL FACTION 
KILL FaCTOPr 
SSO« @ ADEA 


TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 


aQCJ) ALLICATED TJ GRaUND ATTACK MISSION 


AGS(J) ALLUCATED TO aF(J) 


ARFA ATR DEFENSE SEEN HY GIF ATTACKER 
AREA AT&k DEFENSE SEEN KY G2F ATTACKER 


ar(J) 
aR(J) 
aR(J) 
AR(J) 
ARK (J) 


AREA aTR DEFENSE SEF AY REAR ATTACKER 
AREA ATR DEFENSE SEEN BY e(K)F ATTACKER 


ALLICATED 
ALLICATED 
ALLICATED 
ALLOCATED 
ALLICATED 


Tf) GIR 
TO GeaR 
To § 

Ta) 0) 
TO 4(M) 


ACI)R ALLICATED TO a(K)R 


ACIIF CT) 


ACI)F 


LOL) 


ALLICAIED 


ALLOCATED To GIF(I1) 
C1) ALLOCATED 17 GeF(T) 
ACJIFCI) ALLICATED 19 


TD FRONT 


LCLIF ALLICATED ID FCT) 


LE LIF CI) ALLOCATED 


LCLI®R aLLICATED 
LOLIR ALLICATED 
(CLR aLLICATED 
L(LIR aLLJICaTed 
L(LIR ALLICATED 


SD, 


UCCIPYING 


CCIE CW? aLEDCe 
L(L)* aLLICATED TH «(K)R 


[al i Sep at 


Ta GYR 
TO Gek 
T) LOK) 
ras 
Ta 80s) 

B(«) 


TED 19 *(<)F C1) 


ALLOCATED 1) G2FC(1) 


eC )F ALLICATED TO GIF 
ws (KF AaLLICATED TO GF 
~(K)F ALLICATED TO w(J)F 


MAY, 


TF ODETECTIUN © as(y) 


WF Ad 


FEBA RATE CIMMANDED FOR F(T) 


LL = AACS) 


IF NETECTIUN e@ 


wf «€] 
= AGC 
= aGl 


LG © ABC) 
J) @GaINST 
J) AGAINSI 


GiF 
Ger 


ATR DEFENSE AGAINST AaG(J) 
OFFENSE 
DEFENSE 
DEFENSE 
OEFENSE 
DEFENSE 
NEFFNSE 
KTLL FACTIIC 
KILL FACTIiR 
«TLL FACTOR 
KILL FACTOR 
KILL FACTOR 
“ILL FACTIUR 
KILL FACTOR 
KILL FACTOR 
KILL FACTOR 
KILL FACT 
KILL FACTOR 
KILL FACTUR 
KILL FACTINR 
KILL FACTOR 


= “(Lb 
“OL 
MCL 
aCu 
¥(L 
“CL 
“CL 
a(L 
ball 1% 
AGC 
aGC 
aG( 
aG( 
4G( 
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P< © GI AG 
Px be As 
PK S aGa 
Px 
P« 


) AGAINST 
) AGAINST 
) AGAINST 
) AGAINST 
) AGAINST 
) AGAINST 
) AGAINST 
) AGAINST 
) aGAINST 
J) AGAINST 
J) AGAINST 
J) AGAINST 
J) aGAlvsT 
J) @GAINST 


AINST AG(J) 
4INST AG(J) 
INST aG(J) 


L(L) AGAINST aG(J) 
3(4) AGAINST aS(J) 
Px @ w(K)F AGAINST a(J)G 


GiF 
GeF 
GIR 
GeR 
L(K) 
8 
A/C ON 8(4%) 
w(K DF 
w(K)R 
GiR 
G2R 
$ 
&CL2 


a/C JN B(M) 


“(KF CT) 


TO GIFC1) 


AGAINST Aa() 
AGAINST AA(K) 
44(J) AGAINST AG(4) 
AGAINST aG(K) 


| 


P0328Xx 
PO0329x 
POUOIX 
PO040ex 
POWO3Xx 
POUOUX 


ROO01X 
RO301Xx 
ROGGeX 
ROS71x 
ROS72x 
ROS73Xx 
ROS74Xx 
ROS75X 
ROS76x 
ROS77x 
ROS76x 
ROS79x 
R0601Xx 
R0602x 
R0603X 
RO604UX 
RO0605x 
RO0700x 


vos4ix 
vOS4u5*x 
vossix 
v0601x 
v0602x 
v0700x 
v0 

Vv 

AV 
a0001P 
a0002P 
AO0101P 
40102P 
A0103P 
A0104P 
AO105P 
40106P 
A0107P 
40106P 
A0L09P 
AO303P 
40302P 
A0303P 
a030uP 
A0305P 
a0306P 
ao3sO7P 
A0308P 
A0309P 
AO310P 
Aos2ip 
aos2ePp 
AOS23P 
aoseup 


(JA, «nW,NB) 
(JA, «w,NB) 
(18) 

(Kw, 1B) 
(Kw,1B) 
(Ke, Jn,18) 


(JA,JB) 
(LL,1B) 
(Kw, 18) 
(JA,18) 
(18) 
(16) 
(1B) 
(TB) 
(KwW,I1B) 
(KR,I8) 
(L™,18) 
(LL.B) 


(IB) 
(1B) 
(Kw,18) 
(KR, JB) 
(MB, 7B) 


(LL,1B) 
(LL,IB) 
(KR, 1B) 
CIF,78) 
(Ke, 1F,18) 
C18) 
(JC,18) 
(JC,1B) 
(N4a,]B) 
(J4,18) 
(JA,1B) 
CIF,JA,18) 
CIF,J4,18) 
(JA,1B) 
(JA,1B) 
(J4,1B8) 
(LLeJA,1B) 
(MB, JA.1B) 
(1S, J4,18) 
(Kw, JA,1B) 
(LLATF,18) 
(LLA>IF/IB) 
(LL, 18) 
(LL,18) 
(LL,KL,IB) 
CLLs IB) 
(LL, JA,1B) 
(LL, JA,1B) 
(LM,1S8,18) 
CLM, Kw, IB) 
(JA, IF,1B) 
(JA,IF,1B) 
(Ja,1B) 
(Ja,IB) 


KILL FACTOR 
KILL FACTOR 
KILL FACTUR 


A(J)S AGAINST w(K)F 
ACJ)G AGAINST w(K)R 
6! AGAINST 61 

KILL FACTOR w(K)F AGAINST GIF 
KILL FACTOR a(K)F AGAINST S2F 
KILL FACTOR w w(K)F ASAINST w(JDF 


MAX, DESTRED LAUNCH RATE FIR ACJ) 

MAX, DESTRED MISSILE LAUNCH RATE FOR L(L) 
MAX, MESTRED LaUNCH UR FIRE RATE OF w(K)F 
EXTERNSOL RATE JF SUPPLY JF ACJ) 

EXTERNAL RATE OF SUPPLY JF AU 

EXTERNAL RATE JF SUPPLY OF AS 

EXTERNAL KATE TDF SUPPLY OF Gi 

EXTERNAL RATE JF SUPPLY JF Ge 

EXTERNAL KATE JF SUPPLY DF #(K) 

EXTERNAL RaTF JF SUPPLY DF R(K) 

EXTERNAL RATE OF SUPPLY JF “(L) 

EXTERNAL KATE IF SUPPLY JF L(L) 

MAXIMUM FERA “IVEMENT RATE 

MAXIMUM BATE JF FLO« JF G1 FROM Q Tf) F 
MAKIMUM QATE DF FLOW OF G2 FROM QTD F 
MAXTSUM RATE JF FLO8 JF 4(K) FROM R To F 
MOx]Mim Q@ATE JF FLO Jk R(X) FROM R TO F 
REPATR RATE PER B(™) 


NOMINAL “UMBER OF 4(L) AT EACH LOL) 
AMOUNT DF “(L) Iv TRANSIT IN R 
AMOUNT DF R(K) JN TRANSIT Iv R 
MAXIMUM USABLE GJ IN FCI) 

MAXIMUM EXTRA «a(K) IN FCT) 

LEVEL UF AS CAUSING “MQDE SwITCH 
INITIAL CONDITIONS FIR COMMODITIES 
COMONITIES V AnD Dv 

ACQUIRED TOTALS AV AND Dav 
ATTRITION Aa Jn ACJ)A 


ATTRITIDS 
ATTRITIUN 
ATTRITION 
ATTRITIIS 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
ATTRITION 
aTTRITION 
ATTRITION 
ATTRITION 
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AA JN a 


JS 


GIF CT) OV ACJIG 
GeF(T) IN ACJ)G 


GIR ON A 
Gee IN A 
S ON ACJ 
ECL? ON 
R(~) ON 
«(KF CI) 
*(K)R JN 
*¢tL2 ON 
“(L2 ON 
4(L) Ov 
“(L) ON 
“tL oN 
eC(L ON 
“(L) ON 
™(L) ON 
“(L) ON 
M(L) ON 
A(J)G ON 
4(J2G ON 
A(J)G ON 
4(J)G IN 


(JG 
(J)G 
IG 
AC J)G 
A(J)G 
OV 4(J)S 
aCJ)G 
G1FC(I) 
GeF (1) 
GIR 
Ger 
(4) 
Ss 
a(J)81 
a(J)82 
wOSDFCT) 
w(K)R 
GIF (1) 
GeF (1) 
GIR 
GeR 


| 
; 
| 
' 


| 
| 
] 
| 
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RRR rt rere er RRC RO MR PEN IMR TICE SLOPE OY oN ng 


40325P 
A40326P 
A0327P 
A032aP 
A0329F 
40330P 
AU4OIP 
A04O02P 
A04G03P 
a040uP 
ansore 
A0S0eP 
A0503e 
A0S11P 
A0512P 
A051 3P 
agsSiuP 
40515P 
AOS1LOP 
A0521P 
A0S5S22r 
a0523P 
A0S31P 
A0S3e2P 
A0S33P 
4053uP 
ANS&GOP 
AOSU\P 
A05SUPP 
40543P 
adSuaP 
A0SSIP 
A0S61P 
AOSTIP 
A057eP 
A0S75P 


E0S11P 
E051eaP 
E05e1P 
E0SS1P 


RO001P 
RO002P 
ROOO3P 
ROOOUP 
RO0OSP 
RO3501P 
RO302P 
RO303P 
RO304P 
RO30SP 
R0S506P 
RO307P 
ROS0BP 
RO3SO09P 
ROS21P 
RO322P 
RO323P 
RO32uP 


(J4,13) 
(J4,Lbe,19) 
(Ja,<A,I5) 
(JA,«4,]8) 
(J4,18,138) 
(Ja,<4,]8) 
CIF,1B) 
(KR, IF,IR) 
(Ke, JF,1b) 
(ak,1S,18) 
(IF,1b) 
(Ke, TF,IR) 
(ke,15) 
(Ja,Ib) 
(J4,14) 
(J4,13) 
(Ja,TB) 
CIF) 

(16) 
CIF,IA) 
C1F,18) 
(Ke, tr, T*) 
(Ta) 

(IK) 

Chey 
(Kw,]8) 
CIR) 
(LL.13) 
(LL,Itd) 
(LL,»I8) 
(L“,18) 
(KR, TF,I8) 
(Kk,18) 
(Ke,JF,IR) 
(KR, IR) 
(Kk, J]6) 


CI¥) 

(Ik) 
CIF.TB) 
(Kk, JF,IR) 


(Ja,716) 
(J4,715) 
(J4,18) 
(JA, 18) 
(1B) 
(LM,IF 18) 
(L™, IF +18) 
(L",18) 
(Leo IB) 
(Le eKkbL, I) 
(Lé,*8) 
(LY, "B,18) 
(L”™,1S,18) 
(L™,«",18) 
(Ja,IF,18) 
(Je,1F,15) 
(J4,18) 
(JA,1TB) 


ATTRITION A 
ATTRITION Al 
ATTRITION AC 
ATTRITIIN A( 
ATTRITION AC 
ATIRITION 4( 
ATTRITTIN 
ATTRITION 
ATTRITIIN RO 
ATTRITION 
TOTAL DIRECT 
TOTAL DTRECT 
TOTAL DIRECT 
ATTRITION oA 
TOTAL DIRECT 
TATAL DIRECT 
TUTAL NYTRECT 


JG JN S 
JG JN 
JG ON 
JG JN 
JJG IN 
JG Jy 


K)FCI) 


ATTRITION 
ATTRITION 
ATTRITIJIN 
ON ACI) 

ATTRITIUN 
ATTRITIIN 
ATTRITION 


Ete2 

A(1)81 
a(1)82 

w(K) FCT) 
a(a)R 

GiF (1) UN GIFCI) 
RQOMJFCI) Uv GIFC(T) 
ON GeF(J) 
R(OK)F(I) ON 4(J)FCT) 


GiF (I) 
ON w(MK)FCIT) 
ON aCK)R 


JN a(J)GS 
JIN ACJ)B 
JN adj) 


ASSIJCTATEN ATTRITIIN As ON AU 
ATTRITION AB DN AS 


4SSICIATED 
THVAL 


QJRECT ATTRITION In GEF(1) 


ASSICITATED ATTRITION GIFCT) ON GeFCT) 


ASSICIATFI) ATIRITIIN GIF(I) 
MOIRECT ATTRITIIJN JN GIR 


TITAL 
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APPENDIX B 


COMBAT [1 PROGRA DESIGN LANGUAGE 
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PROGRAM (COMBAT-11) 
* READ MODEL TYPE 
* |F (MODEL TYPE = AIR) THEN 
* INCLUDE (AIR INPUT) 
* ELSE (F (MODEL TYPE = ARTILLERY) THEN 
* |NCLUDE (ARTILLERY INPUT) 
* ELSE 
PRINT ERROR MESSAGE 
* STOP 


END 
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> PROGRAM FORMS (GENERATE INPUTS TO COMBAT-11) 

GENERATE NAMELIST DECK AND MAG TAPE INPUTS, ALSO, 

GENERATE TWO BLANK FORMS LISTINGS (WORKING SHEETS). 

INITIALIZE ‘'FORMS'' VARIABLES FOR THE "'AIR'' OR THE "'ARTILLERY'! MODELS 
* DO UNTIL (AN "'END OF RECORD'' 1S ENCOUNTERED) 


* READ A ''COMBAT-I1'' VARIABLE, ITS TYPE DESIGNATOR AND ITS THREE 
SUBSCRIPT DESIGNATORS, IGNORING CARDS WITH BLANK VARIABLE FIELD. 


* CHECK THE VALIDITY OF EACH OF THE THREE SUBSCRIPT DESIGNATORS. 
IF (A SUBSCRIPT DESIGNATOR IS NOT ALLOWED) THEN 
* PRINT AN ERROR MESSAGE 
* STOP PROGRAM EXECUTION 
x EUSE 


* FIND THE ALLOWED MAX VALUES FOR THE SET OF SUBSCRIPTS OF THE 
CURRENT ''COMBAT-11'' VARIABLE FROM ITS SUBSCRIPT DESIGNATORS 


* DO UNTIL (MAX VALUE OF EACH SUBSCRIPT 1S REACHED) 


* GENERATE A SEQUENCE NUMBER AND A SET OF UP TO THREE 
SUBSCRIPTS FOR THE CURRENT ''COMBAT-11'' VARIABLE. 


* ENCODE THE CURRENT ''COMBAT-I1'' VARIABLE, ITS TYPE 
DESIGNATOR AND THE GENERATED SET OF SUBSCRIPTS 


* WRITE AN ENCODED TYPE X VARIABLE, IN A NAMELIST FORMAT, ON 
TAPES FOR LATER GENERATION OF THE NAMELIST DECK 


* SAVE A TYPE X VARIABLE (ENCODED WITH ITS TYPE DESIGNATOR) 
IN AN ELEMENT OF THE ARRAY ''VNAME'' INDEXED BY THE CURRENT 
SEQUENCE NUMBER. 
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SAVE THE CORRESPONDING SET OF GENERATED SUBSCRIPTS (ENCODED 
SEPARATELY) IN THE ARRAY ''VCODE'' ALSO INDEXED BY THE CURRENT 
SEQUENCE NUMBER. 


IF (SEVEN ENCODED VARIABLES (OR LESS WHEN NEAR END OF TYPE X 
OR NEAR END OF TYPE P INPUT STREAM) HAVE BEEN GENERATED) THEN 


PRINT THE ENCODED TYPE X OR P VARIABL ~ AND THEIR SEQUENCE 
NUMBERS. IN A MAX OF SEVEN COLUMN DISPLAY FORMAT (1ST 
LISTING OF BLANK FORMS). 


* WRITE THE SAME VARIABLES AND SEQUENCE NUMBERS ON TAPE8 FOR 
LATER USE (UNFORMATTED) . 


ELSE 
END DO 
END DO 


WRITE NUMBER OF GENERATED TYPE X AND TYPE P ENCODED VARIABLES ON TOP OF A 
NEW FILE (TAPE7). 


COPY TAPE8 ONTO TAPE7 FOR LATER DUMP ON A MAG TAPE. 

THE FOLLOWING IS A LATE ADDITION TO ''FORMS''. IT READS THE INPUT VARI- 
ABLE DICTIONARY DECK, WHICH CONTAINS DESCRIPTIONS OF TYPE X VARIABLES, 
AND GENERATES THE 2ND BLANK FORMS LISTING AND MAG TAPE OUTPUT. 

DO UNTIL (AN ''END'' CARD OR AN "'END OF RECORD'' IS ENCOUNTERED) 


READ A "'COMBAT-I1I'' VARIABLE (WITH TYPE DESIGNATOR), !TS THREE 
INDICES AND THE CORRESPONDING DESCRIPTION. 


PP (A "SPACES UTIhEE Ie OR “TimeE2 (SIN THE “PERS? NEED) THEN 
PRINT PERTINENT COMMENTS, BLANKS OR TITLE 


* WRITE THE SAME (INFORMATION ON TAPE7 (UNFORMATTED) . 
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END 


ELSE 


GENERATE THE SUBSCRIPT SET OF THE VARIABLE FROM THE THREE INDICES. 


* COMPARE THE VARIABLE AND THE ASSOCIATED SET OF SUBSCRIPTS AGAINST 
THE PREVIOUSLY SAVED VARIABLES (VNAME) AND SUBSCRIPTS (VCODE). 


1F (A COMPLETE MATCH IS NOT FOUND) THEN 


ELSE 


END DO 


PRINT ERROR MESSAGE 


STORE THE SEQUENCE NUMBERS FOR THE BLUE AND RED VERSION OF THE 
VARIABLE 


PRINT THE VARIABLE, ITS INDICES THE CORRESPONDING DESCRIPTION 
AND THE BLUE/RED SEQUENCE NUMBER IN A FOUR COLUMN DISPLAY 
FORMAT (2ND LISTING OF BLANK FORMS) . 


WRITE THE SAME INFORMATION ON TAPE7 (UNFORMATTED) 
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SEGMENT (AIR VERSION INPUT) (THE SAME LOGIC IS USED FOR THE ARTILLERY 
VERSION) 


READ RFLG, OFLG, DFLG, TFLG, BFLG, START TIME, TITLE 
1F (BFLG) THEN 
* READ STATE OF PREVIOUS GAME FROM ITS OUTPUT TAPE 


SET RESTART TIME 


ELSE 
IF (RFLG) THEN 
READ NEW BASE CASE FROM NAME LIST 
CARD DECK 
* WRITE A BASE CASE TAPE 
ELSE 
READ DICTIONARY TAPE 
* READ OLD BASE CASE TAPE 
* 1F (OFLG) 


* PRODUCE CROSS REFERENCE LISTING WITH VALUES FILLED IN 
IF (TFLG) THEN 
PRINT INPUT TABLES (VARIABLE DESCRIPTION LISTING) 
READ INTEGRATION CONTROL CARD (DEQ) 
* PROCESS TIME ZERO MODIFY CARDS IF ANY 


* INCLUDE (AIR MODEL) 
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* SEGMENT (AIR MODEL) 


* IF (NOT A RESTARTED GAME) THEN 


INITIALIZE STATE VECTORS 


INITIALIZE INTEGRATION PARAMETERS 


* WRITE (INITIAL) STATE OF MODEL TO THE OUTPUT TAPE 


* DO (FOR EACH DATA POINT) 


* DO (UNTIL INTEGRATION TIME REACHES DATA POINT) 


* INCLUDE (INTEGRATOR) 
RESTRICT QUANTITIES TO NON-NEGATIVE 


* CALCULATE ALL THE COEFFICIENTS AND KINEMATICS DEPENDENT 
ON THE INTEGRATED VARIABLES 


* SOLVE FIRST EQUATION SET 


* DETERMINE STATE OF BASES 


* LAUNCH AIRCRAFT 


* DETERMINE MISSION MIXES (AIRCRAFT AND WEAPON 


TYPES) 


* DETERMINE LOSSES DUE TO AIR-TO-AIR 


* SOLVE SECOND EQUATION SET (AIR DEFENSE) 


% 


VS AIRCRAFT 


* DETERMINE 


* DETERMINE 
AIRCRAFT 
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pg 


DETERMINE 


* DETERMINE 
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SUCCESS 


SUCCESS 


SUCCESS 


SUCCESS 


SUCCESS 


SUCCESS 


re 


DETERMINE SUCCESS OF 


OF 


OF 


OF 


OF 


OF 


OF 


GROUND FORCES IN FRONT 


SUPPLY IN FRONT VS AIRCRAFT 


GROUND FORCES IN REAR VS 


SUPPLY IN REAR VS AIRCRAFT 
SITES VS AIRCRAFT 
LAUNCHERS VS AIRCRAFT 


BASES VS AIRCRAFT 


* SOLVE THIRD EQUATION SET 


* DETERMINE EFFECTIVENESS OF MISSILES 


* MISSILES VS GROUND FORCES IN FRONT 


* 


br 
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* MISSILES VS 


MISSITEES VS 


MISSILES VS 


MISSILES VS 


* MISSILES VS 
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e MESSTLES VS 


SUPPLY IN FRONT 


GROUND FORCES IN REAR 


SUPPLY IN REAR 


SITES 


LAUNCHERS 


BASES 


* DETERMINE EFFECTIVENESS OF AIRCRAFT 


* AIRCRAFT VS GROUND FORCES IN FRONT 
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sk 
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he 


* AIRCRAFT VS 


AIRCRAFT VS 


* AIRCRAFT VS 


* AIRCRAFT VS 
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* 


* AIRCRAFT VS 


AIRCRAFT VS 


* SOLVE FOURTH EQUATION 


SUPPLY IN FRONT 


GROUND FORCES IN REAR 


SUPPLY IN REAR 


SITES 


LAUNCHERS 


BASES 


SET 


* DETERMINE ATTRITION OF GROUND FORCES IN FRONT 


* DETERMINE EFFECTS OF ARTILLERY ROUNDS 


* CONVENTIONAL VS GROUND FORCES 


* NUCLEAR VS GROUND FORCES 


* CONVENTIONAL VS SUPPLY 


* NUCLEAR VS SUPPLY 
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* SOLVE FIFTH EQUATION SET 
DETERMINE ATTRITION CAUSES 


* LOSSES OF GROUND FORCES IN FRONT 


te 


AIRCRAFT LOSSES AND ASSOCIATED EXPENDITURES 


% 


LOSSES AND EXPENDITURE OF SUPPLY 


* LOSSES OF FORCES IN REAR 


ba 


LOSSES OF SUPPLY IN REAR 

= LOSSES OF SITES 

* LOSSES OF LAUNCHERS 

EEOSSES (GF MISS RLES 

* LOSSES OF WEAPON SYSTEMS IN FRONT 


* LOSSES AND EXPENDITURE OF ROUNDS IN FRONT 


% 


LOSSES OF WEAPON SYSTEMS IN REAR 
* LOSSES OF ROUNDS IN REAR 
* CALCULATE RESUPPLY RATES 

* SOLVE SIXTH EQUATION SET (KINEMATICS) 
* DETERMINE FRONTAL MOVEMENT RATE 


* DETERMINE RATE OF MOVEMENT OF AIRCRAFT, 
ACTUAL AND ACQUIRED 


bd 


DETERMINE DEMAND FOR GROUND FORCES AND SUPPLY 


ra 


DETERMINE RATE OF MOVEMENT OF GROUND FORCES AND 
SUPPLY FROM/TO REAR. 


+ 


DETERMINE RATE OF MOVEMENT OF MISSILES AND 
LAUNCHERS FROM/TO THE REAR. 


* DETERMINE DEMAND AND FLOW OF CONVENTIONAL AND 
NUCLEAR ROUNDS FROM/TO THE REAR. 


* DETERMINE RATE OF MOVEMENT OF CONVENTIONAL AND 
NUCLEAR ROUNDS FROM/TO REAR. 


+ 


DETERMINE RATE OF MUNITIONS MOVEMENT FROM THE SITES. 


127 


* CHECK FOR USER MODIFICATIONS OF COEFFICIENTS OR 
DATA INTERVAL 


* END DO 
* WRITE COMPLETE MODEL STATE ON OUTPUT TAPE 
* END DO 


* END 


| 
| 
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* SEGMENT (ARTILLERY MODEL) 
* |F (NOT A RESTARTED GAME) THEN 
* INITIALIZE STATE VECTORS 
* INITIALIZE INTEGRATION PARAMETERS 
* WRITE (INITIAL) STATE OF MODEL OUTPUT TAPE 
* DO (FOR EACH DATA POINT) 
* DO (UNTIL INTEGRATION TIME REACHES DATA POINT) 


* INCLUDE (INTEGRATOR) 
RESTRICT QUANTITIES TO NON-NEGATIVE 


* CALCULATE ALL THE COEFFICIENTS AND KINEMATICS DEPENDENT 
ON THE INTEGRATED VARIABLES 


* SOLVE FIRST EQUATION SET 
* DETERMINE STATE OF BASES 
* LAUNCH AIRCRAFT 


* DETERMINE MISSION MIXES (AIRCRAFT AND WEAPON 
TYPES) 


* DETERMINE LOSSES DUE TO AIR-TO-AIR 


* SOLVE SECOND EQUATION SET (AIR DEFENSE) 


* DETERMINE SUCCESS OF GROUND FORCES IN FRONT 
VS AIRCRAFT 


bd 


DETERMINE SUCCESS OF SUPPLY IN FRONT VS AIRCRAFT 


* DETERMINE SUCCESS OF GROUND FORCES IN REAR VS 
AIRCRAFT 


* DETERMINE SUCCESS OF SUPPLY IN REAR VS AIRCRAFT 


br 


DETERMINE SUCCESS OF SITES VS AIRCRAFT 


bd 


DETERMINE SUCCESS OF LAUNCHERS VS AIRCRAFT 


* DETERMINE SUCCESS OF BASES VS AIRCRAFT 


———— 


* DETERMINE SUCCESS OF FRONTAL WEAPON SYSTEMS 
VS AIRCRAFT 
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* DETERMINE SUCCESS OF WEAPON SYSTEMS IN REAR VS 


AIRCRAFT 
* SOLVE THIRD EQUATION SET 
* DETERMINE EFFECTIVENESS 
* MISSILES VS GROUND 


* MISSILES VS SUPPLY 


+ 


MISSILES VS WEAPON 


+ 


MISSILES VS GROUND 


+ 


MISSILES VS SUPPLY 


a 


MISSILES VS WEAPON 


bis 


MISSILES VS SITES 


+ 


MESSITLES VS 


ve 
oe 


MISSILES VS BASES 


* DETERMINE EFFECTIVENESS 


* AIRCRAFT VS GROUND 


+ 


AIRCRAFT VS SUPPLY 


* AIRCRAFT VS WEAPON 


* AIRCRAFT VS GROUND 


* AIRCRAFT VS SUPPLY 


+ 


AIRCRAFT VS WEAPON 


* AIRCRAFT VS SITES 


e 


AIRCRAFT VS 


* AIRCRAFT VS BASES 


* SOLVE FOURTH EQUATION SET 


* DETERMINE ATTRITION OF GROUND FORCES 


OF MLSSILES 
FORCES IN FRONT 
IN FRONT 
SYSTEMS IN FRONT 
FORCES IN REAR 
iN REAR 


SYSTEMS IN REAR 


LAUNCHERS 


OF AIRCRAFT 
FORCES IN FRONT 
IN FRONT 
SYSTEMS IN FRONT 
FORCES IN REAR 
IN REAR 


SYSTEMS IN REAR 


LAUNCHERS 


IN FRONT 


* DETERMINE WEAPON SYSTEMS EFFECTIVENESS 


* FRONTAL WEAPONS VS GROUND FORCES IN FRONT 


* FRONTAL WEAPONS VS SUPPLY IN FRONT 


* FRONTAL WEAPONS VS FRONTAL WEAPONS 


* SOLVE FIFTH EQUATION SET 
DETERMINE ATTRITION CAUSES 


* LOSSES OF GROUND FORCES IN FRONT 


sk 


* AIRCRAFT LOSSES AND ASSOCIATED EXPENDITURES 


LOSSES AND EXPENDITURE OF SUPPLY 


LOSSES 


* LOSSES 


LOSSES 


* LOSSES 


te 


LOSSES 


* LOSSES 


* LOSSES 


k LOSSES 


% 


% 


OF 


OF 


OF 


OF 


OF 


OF 


FORCES IN REAR 
SUPPLY IN REAR 
SEVES 
LAUNCHERS 
MISSILES 


WEAPON SYSTEMS IN FRONT 


AND EXPENDITURE OF ROUNDS IN FRONT 


OF 


WEAPON SYSTEMS IN REAR 


LOSSES OF ROUNDS IN REAR 


CALCULATE RESUPPLY RATES 


* SOLVE SIXTH EQUATION SET (KINEMATICS) 


* DETERMINE FRONTAL MOVEMENT RATE 


* DETERMINE RATE OF MOVEMENT OF AIRCRAFT, 
ACTUAL AND ACQUIRED 


* DETERMINE DEMAND FOR GROUND FORCES AND SUPPLY 


* DETERMINE RATE OF MOVEMENT OF GROUND FORCES AND 
SUPPLY FROM/TO REAR. 


* DETERMINE RATE OF MOVEMENT OF MISSILES AND 
LAUNCHERS FROM/TO THE REAR. 
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* DETERMINE DEMAND AND FLOW OF WEAPON SYSTEMS 
AND ROUNDS FROM/TO THE REAR 


* DETERMINE RATE OF MOVEMENT OF WEAPON SYSTEMS 
AND ROUNDS IN REAR 


* DETERMINE RATE OF MOVEMENT OF MUNITIONS FROM THE 
SITES 


* CHECK FOR USER MODIFICATIONS OF COEFFICIENTS OR 
DATA INTERVAL 


* END DO 
* WRITE COMPLETE MODEL STATE ON OUTPUT TAPE 
* END DO 


* END 
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SEGMENT (!NTEGRATOR) 


INTEGRATES A SYSTEM OF FIRST-ORDER ORDINARY DIFFERENTIAL EQUATIONS, 
USING THE ADAMS-MOULTON PREDICATOR-CORRECTOR METHOD 


CASE (PROGRAM PHASE) 
PHASE = RUNGE-KUTTA SETUP 
* INITIALIZE INTEGRATION VALUE MATRICES 

SETUP FOR RUNGE-KUTTA INTEGRATIONS 
SET PROGRAM PHASE TO INTEGRATION 
SET INTEGRATION CONTROL TO 1 

PHASE = INTEGRATION 
CASE (INTEGRATION CONTROL) 


CONTROL = 1 


PERFORM STEP 1 OF RUNGE-KUTTA INTEGRATION 
RESET INTEGRATION CONTROL TO 2 


CONTROL = 2 


STEP 2 OF RUNGE-KUTTA 
RESET INTEGRATION CONTROL TO 3 
* CONTROL = 3 


* STEP 3 OF RUNGE-KUTTA 


RESET INTEGRATION CONTROL TO 4 


* CONTROL = & 
* STEP 4 OF RUNGE-KUTTA 
* THIS INTEGRATION COMPLETED - MOVE SOLUTIONS UP 
INCREMENT CURRENT TIME BY INTEGRATION TIME STEP 
* |F (END OF CURRENT INTERVAL REACHED) THEN 
* SET PROGRAM PHASE TO "'END OF INTERVAL" 
* ELSE IF (WE HAVE FOUR VALID PREVIOUS SOLUTIONS) THEN 
* USE ADAMS-MOULTON PREDICTOR TO PREDICT NEXT SOLUTION 
* RESET INTEGRATION CONTROL TO 5 
* BESE 
* RESET INTEGRATION CONTROL TO 1 
* CONTROL = 5 
* APPLY ADAMS-MOULTON CORRECTOR TO PREDICTED SOLUTION 
* COMPUTE ERROR TERM 
JF (ERROR TOO LARGE) THEN 
* HALVE STEP TIME 


* SETUP TO USE RUNGE-KUTTA AGAIN (WITH THE NEW TIME 
STEP) ONLY THE PREVIOUS RESULT IS USEFUL. 


* RESET INTEGRATION CONTROL TO 1 
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ELSE IF (ERROR TERM VERY SMALL) THEN 
DOUBLE TIME STEP 
* F (NEW STEP GOES TOO FAR PAST END OF INTERVAL) THEN 


* MUST COMPUTE SOLUTION AT END OF CURRENT INTERVAL, 
RUNGE-KUTTA 


SETUP FOR RUNGE-KUTTA AT END OF INTERVAL 
SET INTEGRATION CONTROL TO 1 

ELSE 
WE HAVE 3 VALID PREVIOUS VALUES - SAVE THEM 
SET INTEGRATION CONTROL TO 8 

ELSE 
RESET INTEGRATION CONTROL TO 6 

CONTROL = 6 

ADVANCE SOLUTIONS 

1F (AT END OF INTERVAL) THEN 
SET PROGRAM PHASE TO 'END OF INTERVAL! 

ELSE 


PREDICT NEXT SOLUTION 


RESET INTEGRATION CONTROL TO 5 


USING 


* CONTROL = 7 
* ADVANCE THE SOLUTIONS MATRIX 
* [F (WE HAVE FOUR VALID PREVIOUS SOLUTIONS) THEN 
* PREDICT NEXT SOLUTION 
* RESET INTEGRATION CONTROL TO 5 
ELSE 
* SET UP FOR RUNGE-KUTTA INTEGRATIONS 
RESET INTEGRATION CONTROL TO 1 
CONTROL = 8 
SET UP TO USE RUNGE-KUTTA TO GET ANOTHER SOLUTION 
* 1[F (AT END OF INTERVAL) THEN 
SET PROGRAM PHASE TO 'END OF INTERVAL' 
* ELSE 
SET INTEGRATION CONTROL TO 1 
PHASE = 'END OF INTERVAL! 
RESET PROGRAM PHASE TO INTEGRATION 


* |F (WE HAD TO COMPUTE SOLUTIONS AT A DATA POINT WHICH WAS NOT 
AN INTEGRATION STEP) THEN 


RESTORE OLD TIME STEP AND TIME 


RESET INTEGRATION CONTROL TO 7 
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END 


ELSE 


an 


1F (WE HAVE FOUR VALID PREVIOUS SOLUTIONS) THEN 
* PREDICT NEXT SOLUTION 
* RESET INTEGRATION CONTROL TO 5 
ELSE 
SET UP FOR RUNGE-KUTTA INTEGRATIONS 


* RESET INTEGRATION CONTROL TO 1 
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: PROGRAM ARTOUT (PRINT SELECTED RESULTS FOR THE ARTILLERY VERSION OF A 
“'COMBAT-11'' RUN) 


INITIALIZE "ARTOUT'' VARIABLES 


% 


1F (DATA ON TAPE3 1S NOT FROM THE ARTILLERY MODEL) THEN 
* GIVE AN ERROR MESSAGE 


*STOP THE EXECUTION OF THE PROGRAM 


od 


READ FROM TAPE3 THE TITLE, DATE, DESCRIPTION AND TIME RANGE OF THE 
"'COMBAT-I1'' RUN, CURRENTLY IN PROCESS 


% 


PRINT THE TITLE, DATE AND DESCRIPTION OF THE RUN 


% 


DO UNTIL (AN END-OF-FILE CARD 1S ENCOUNTERED) 
* READ A CONTROL CARD CONTAINING THE DISPLAY START TIME, THE TYPE OF 
INFORMATION TO BE DISPLAYED AND THE ''CARD TYPE'' PARAMETER. IGNORE 
CARDS WITH START TIME OUTSIDE THE TIME RANGE OF THE ''COMBAT 11'' RUN 


= WHEN A ''CHANGE'' CARD 1S ENCOUNTERED SET THE SWITH ''SWTB'' TO THE 
POSITIVE OR NEGATIVE VALUE IN THE SECOND FIELD OF THE CARD. 


* READ FROM TAPE3 A SET OF ''COMBAT I1'' DATA CORRESPONDING TO THE DISPLAY 
START TIME AND TO THE TYPE OF DISPLAY INFORMATION SELECTED IN LAST 
INPUT CARD READ. 

- CASE (TYPE OF INFO SELECTED) 

* TYPE OF INFO = AIRCRAFT STATISTICS (A) 


INCLUDE (A-TABLES) 
* TYPE OF INFO = MISSILE STATISTICS (M1,M2) 


INCLUDE (M-TABLES) 

* TYPE OF INFO = AIR BASES STATISTICS (B) 
INCLUDE (B-TABLES) 

* TYPE OF INFO = GROUND FORCE PACKETS STATISTICS (G1) 
INCLUDE (G1-TABLES) 


* TYPE OF INFO = SUPPLY PACKET STATISTICS (G2) 


* INCLUDE (G2-TABLES) 


* TYPE 


% 


* TYPE 


7 
+ 


* TYPE 


* TYPE 


OF INFO = SUPPLY PACKET STATISTICS (G2) 

INCLUDE (G2-TABLES) 

OF INFO = STATISTICS ON WEAPONS AND THEIR ROUNDS (W/R) 
INCLUDE (W/R-TABLES) 

OF INFO = FEBA MOVEMENT (R FACTORS) 

INCLUDE (R-FACTOR-TABLES) 


OF INFO = UNKNOWN TYPE 


* GIVE ERROR MESSAGE 


* END DO 


* END ARTOUT 
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a 


* PROGRAM AIROUT (PRINT SELECTED RESULTS FOR THE AIR VERSION OF A 


"'COMBAT-11'' RUN) 

INITIALIZE ''ALROUT'' VARIABLES 

1F (DATA ON TAPE3 1S NOT FROM THE AIR MODEL) THEN 
* GIVE AN ERROR MESSAGE 


*STOP THE EXECUTION OF THE PROGRAM 


* READ FROM TAPE3 THE TITLE, DATE, DESCRIPTION AND TIME RANGE OF THE 


= 


"'COMBAT-11'' RUN, CURRENTLY IN PROCESS 
PRINT THE TITLE, DATE AND DESCRIPTION OF THE RUN 
DO UNTIL (AN END-OF-FILE CARD 1S ENCOUNTERED) 
* READ A CONTROL CARD CONTAINING THE DISPLAY START TIME, THE TYPE OF 
INFORMATION TO BE DISPLAYED AND THE ''CARD TYPE'' PARAMETER. IGNORE 
CARDS WITH START TIME OUTSIDE THE TIME RANGE OF THE ''COMBAT 1!1'' RUN 


* WHEN A ''CHANGE'' CARD |S ENCOUNTERED SET THE SWITH ''SWTB'' TO THE 
POS{TIVE OR NEGATIVE VALUE IN THE SECOND FIELD OF THE CARD. 


* READ FROM TAPE3 A SET OF ''COMBAT I1'' DATA CORRESPONDING TO THE DISPLAY 
START TIME AND TO THE TYPE OF DISPLAY INFORMATION SELECTED IN LAST 
INPUT CARD READ. 

* CASE (TYPE OF INFO SELECTED) 

* TYPE OF INFO = AIRCRAFT STATISTICS (A) 


* |NCLUDE (A-TABLES) 
* TYPE OF INFO = MISSILE STATISTICS (M1,M2) 


* |NCLUDE (M-TABLES) 

* TYPE OF INFO = AIR BASES STATISTICS (B) 
* INCLUDE (B-TABLES) 

* TYPE OF INFO = GROUND FORCE PACKETS STATISTICS (G1) 
* INCLUDE (G1-TABLES) 

* TYPE OF INFO = SUPPLY PACKET STATISTICS (G2) 


* INCLUDE (G2-TABLES) 
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* TYPE OF INFO = STATISTICS ON SSM AND NUCLEAR WEAPONS AND THEIR 
ROUNDS (G3/G5, G4/G6) 


INCLUDE (G3/G5-G4/G6-TABLES) 


* TYPE OF INFO = FEBA MOVEMENT (R FACTORS) 
* INCLUDE (R FACTOR TABLES) 
* TYPE OF INFO = UNKNOWN TYPE 
* GIVE ERROR MESSAGE 
* END DO 


* END AIROUT 
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SEGMENT A TABLES (PRINT AIRCRAFT RELATED DATA AND STATISTICS) 


INITIALIZE ''A TABLES'' VARIABLES 
DO UNTIL (AT MOST TEN DATA SETS HAVE BEEN PROCESSED) 
IF (SWITCH ''SWTB'' 1S POSITIVE) THEN 
*OBTAIN PART OF CURRENT COMBAT-11 DATA FROM ARRAY ''VA"! 
ELSE 
OBTAIN PART OF CURRENT COMBAT-1! DATA FROM ARRAY ''DVA'! 


COMPUTE THE DESIRED DISPLAY VARIABLES OF THE SELECTED AIRCRAFT 
SYSTEM FROM THE APPROPRIATE DATA. 


READ FROM TAPE3 A NEW DATA SET CORRESPONDING TO THE NEXT TIME POINT, 


WHICH IS INDICATED BY THE CURRENT ''CARD TYPE'' PARAMETER. (NOTE: 
NEW VALUES IN ARRAYS ''VA' AND ''DVA'') 


END DO 


GENERATE BLOCKS OF PRINTOUT CONTAINING THE VALUES OF SELECTED VARIABLES. 
FOR UP TO TEN TIME POINTS, IN A PREDETERMINED FORMAT. OMIT CERTAIN BLOCKS 
IF THERE !S NO AIR-TO-GROUND MISSION. 


END A TABLES 


SEGMENT B TABLES (PRINT DATA AND STATISTICS FOR BASES BI AND B2) 
INITIALIZE VARIABLES FOR B TABLES 
DO UNTIL (AT MOST TEN DATA SETS HAVE BEEN PROCESSED) 
IF (SWITCH "'SWTB'' 1S POSITIVE) THEN 
OBTAIN PART OF CURRENT ''COMBAT-I1'' DATA FROM ARRAY ''VA'! 
ELSE 
OBTAIN PART OF CURRENT ''COMBAT-11'' DATA FROM ARRAY ''DVA'! 
DO UNTIL (BASE Bl AND THEN BASE B2 HAVE BEEN PROCESSED) 


* COMPUTE THE DESIRED DISPLAY VARIABLES FOR THE CURRENT BASE 
(B1 OR B2) FROM THE APPROPRIATE DATA 


END DO 
READ FROM TAPE3 A NEW DATA SET CORRESPONDING TO THE NEXT TIME POINT, 
WHICH IS INDICATED BY THE CURRENT ''CARD TYPE'' PARAMETER. (NOTE: 
NEW DATA IN ARRAYS ''VA'' AND "'DVA'') 
END DO 
DO UNTIL (BASE Bl AND B2 HAVE BEEN PROCESSED) 


GENERATE BLOCKS OF PRINTOUT CONTAINING THE VALUES OF SELECTED 
VARIABLES FOR UP TO TEN TIME POINTS, IN A PREDETERMINED FORMAT 


END DO 


END B TABLES 
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* SEGMENT M TABLES (PRINT DATA STATISTICS FOR MISSILES MI AND M2) 
DO UNTIL (SYSTEM MI] AND THEN M2 HAVE BEEN PROCESSED) 

IF (SYSTEM IN PROCESS 1S M2) THEN 
READ FROM TAPE3 A SET OF "'COMBAT-I1I'' DATA CORRESPONDING TO THE 
DISPLAY START TIME AND TO THE TYPE OF DISPLAY |NFORMATION 
SELECTED IN LAST INPUT CARD. 

INITIALIZE ''M TABLES'' VARIABLES 

DO UNTIL (AT MOST TEN DATA SETS HAVE BEEN PROCESSED) 


IF (SWITCH ''SWTB'' IS POSITIVE) THEN 


OBTAIN PART OF CURRENT ''COMBAT-1I1'' DATA FROM ARRAY ''VA"! 
ELSE 
OBTAIN PART OF CURRENT ''COMBAT-11'' DATA FROM ARRAY ''DVA"' 


COMPUTE THE DESIRED DISPLAY VARIABLES OF THE CURRENT MISSILE 
SYSTEM FROM THE APPROPRIATE DATA. 


READ FROM TAPES A NEW DATA SET CORRESPONDING TO THE NEXT TIME 
POINT, WHICH IS INDICATED BY THE CURRENT ''CARD TYPE'' PARAMETER. 
(NOTE: NEW DATA IN ARRAYS ''VA'' AND ''DVA'') 


* END DO 


* |F (SOME LAUNCHERS ARE STILL FUNCTIONING OR THE SYSTEM IN PROCESS 
1S Ml) THEN 


GENERATE BLOCKS OF PRINTOUT CONTAINING THE VALUES OF SELECTED 
VARIABLES, FOR UP TO TEN TIME POINTS, IN A PREDETERMINED 
FORMAT. OMIT CERTAIN BLOCKS IF THERE ARE NO FUNCTIONING 
LAUNCHERS. 


* END DO 


END M TABLES 


wk 


wt 


* 


SEGMENT Gl TABLES (PRINT DATA AND STATISTICS FOR FORCE PACKETS) 
INITIALIZE VARIABLES FOR Gl TABLES 
DO UNTIL (AT MOST TEN DATA SETS HAVE BEEN PROCESSED) 
1F (SWITCH ''SWTB'' 1S POSITIVE) THEN 
OBTAIN PART OF CURRENT ''COMBAT-II'' DATA FROM ARRAY ''VA'! 
ELSE 
OBTAIN PART OF CURRENT ''COMBAT-I1I'' DATA FROM ARRAY ''DVA'! 


* COMPUTE THE DESIRED DISPLAY VARIABLES OF THE SELECTED FORCE PACKET 
FROM THE APPROPRIATE DATA. 


READ FROM TAPE3 A NEW DATA SET CORRESPONDING TO THE NEXT TIME POINT, 
WHICH IS INDICATED BY THE CURRENT ''CARD TYPE'' PARAMETER. (NOTE: 
NEW DATA IN ARRAYS ''VA'' AND ''DVA'') 

END DO 


GENERATE BLOCKS OF PRINTOUT CONTAINING THE VALUES OF SELECTED VARIABLES, 
FOR UP TO TEN TIME POINTS, IN A PREDETERMINED FORMAT 


END Gl] TABLES 


* SEGMENT G2 TABLES (PRINT DATA AND STATISTICS FOR FORCE PACKETS) 
INITIALIZE VARIABLES FOR G2 TABLES 
DO UNTIL (AT MOST TEN DATA SETS HAVE BEEN PROCESSED) 
1F (SWITCH '"'SWTB'' IS POSITIVE) THEN 
OBTAIN PART OF CURRENT ''COMBAT-I1'' DATA FROM ARRAY ''VA'! 
ELSE 
OBTAIN PART OF CURRENT ''COMBAT-I1'' DATA FROM ARRAY ''DVA'! 


COMPUTE THE DESIRED DISPLAY VARIABLES OF THE SELECTED FORCE PACKET 
FROM THE APPROPRIATE DATA. 


READ FROM TAPE3 A NEW DATA SET CORRESPONDING TO THE NEXT TIME POINT, 
WHICH 1S INDICATED BY THE CURRENT "'CARD TYPE'' PARAMETER. (NOTE: 
NEW DATA IN ARRAYS ''VA'' AND "'DVA'') 


END DO 


GENERATE BLOCKS OF PRINTOUT CONTAINING THE VALUES OF SELECTED VARIABLES, 
FOR UP TO TEN TIME POINTS, IN A PREDETERMINED FORMAT 


* END G2 TABLES 
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SEGMENT G3/G5 AND G4/G6 TABLES (PRINT DATA AND STATISTICS FOR FRONTAL 
SSM AND NUCLEAR ARTILLERY) 


INITIALIZE LOCAL VARIABLES 
DO UNTIL (AT MOST TEN DATA SETS HAVE BEEN PROCESSED) 
IF (SWITCH ''SWTB'' IS POSITIVE) THEN 
OBTAIN PART OF CURRENT ''COMBAT-11'' DATA FROM ARRAY "VA" 
ELSE 
OBTAIN PART OF CURRENT ''COMBAT-I1'' DATA FROM ARRAY "'DVA!! 
IF (ANY NUCLEAR ARTILLERY TUBES EXIST) THEN 


COMPUTE THE DESIRED DISPLAY VARIABLES ASSOCIATED WITH NUCLEAR 
ARTILLERY FROM THE APPROPRIATE DATA 


1F (ANY FRONTAL SSM LAUNCHERS EXIST) THEN 


COMPUTE THE DESIRED DISPLAY VARIABLES ASSOCIATED WITH SSM'S 
FROM THE APPROPRIATE DATA 


READ FROM TAPE3 A NEW DATA SET CORRESPONDING TO THE NEXT TIME POINT, 
WHICH IS INDICATED BY THE CURRENT ''CARD TYPE'' PARAMETER. (NOTE: 
NEW DATA IN ARRAYS ''VA'' AND ''DVA'') 

END DO 


ELSE 


PRINT A MESSAGE INDICATING LACK OF DATA FOR THESE WEAPONS SYSTEMS 


END G3/G5 AND G4/G6 TABLES 


SEGMENT W/R TABLES (PRINT DATA AND STATISTICS FOR THE WEAPON SYSTEMS 
AND THEIR ROUNDS) 


INITIALIZE LOCAL VARIABLES 


+ 


DO UNTIL (AT MOST TEN DATA SETS HAVE BEEN PROCESSED) 
* 1F (SWITCH ''SWTB'' 1S POSITIVE) THEN 
* OBTAIN PART OF CURRENT ''COMBAT-11'' DATA FROM ARRAY ''VA'! 
* ELSE 
* OBTAIN PART OF CURRENT ''COMBAT-11 DATA FROM ARRAY ''DVA'! 


* COMPUTE THE DESIRED DISPLAY VARIABLES OF THE SELECTED WEAPONS AND 
ROUNDS FROM THE APPROPRIATE DATA 


* READ FROM TAPE3 A NEW DATA SET CORRESPONDING TO THE NEXT TIME POINT 


WHICH IS INDICATED BY THE CURRENT ''CARD TYPE'' PARAMETER. (NOTE: 
NEW DATA IN ARRAYS ''VA'' AND ''DVA'') 


* END DO 


* PRINT THE VALUES OF SELECTED WEAPONS/ROUNDS QUANTITIES FOR UP TO TEN 
TIME POINTS, IN A PREDETERMINED FORMAT. 


* END W/R TABLES 
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SEGMENT R FACTOR TABLE (PRINT DATA RELATED TO FEBA MOVEMENT) 


INITIALIZE LOCAL VARIABLES 


* DO UNTIL ‘AT MOST TEN DATA SETS HAVE BEEN PROCESSED) 


OBTAIN PART OF CURRENT COMBAT-11 DATA FROM ARRAY "“'DVA'! 
COMPUTE THE DESIRED DISPLAY VARIABLES FROM THE APPROPRIATE DATA 
READ FROM TAPE3 A NEW DATA SET CORRESPONDING TO THE NEXT TIME POINT, 
WHICH |S INDICATED BY THE CURRENT ''CARD TYPE'' PARAMETER. (NOTE: 
NEW DATA IN ARRAYS ''VA'' AND ''DVA'') 
END DO 


PRINT THE VALUES OF SELECTED QUANTITIES, RELATED TO FEBA MOVEMENT, FOR UP 
TO TEN TIME POINTS, IN A PREDETERMINED FORMAT 


END R FACTOR TABLE 
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* SEGMENT GRAPHC2 (BUILD PRINTED PLOTS OF RESULTS OF A COMI! RUN) 


* 


* READ FROM TAPE3 THE MODEL VERSION THAT CREATED THE FILE. 


oF 


INITIALIZE GRAPHC2 CONTROL VARIABLES 


1F (MODEL VERSION NOT RECOGNIZED) 
* PRINT ERROR MESSAGE 


* STOP EXECUTION 


* READ COMII RUN DESCRIPTION AND CONTROL PARAMETERS 


* LABEL GRAPHIC OUTPUT (TAPE6) WITH RUN TITLE AND TIME PARAMETERS 


* READ FIRST DATA POINT IN APPROPRIATE FORM 


* WRITE RUN DESCRIPTION TO TAPE6 IN PAGINATED FORMAT 


* READ FIRST GRAPHIC2 CONTROL CARD 


1F (FIRST CARD IS A TLIMIT CARD) 
IF (TLIMIT TiME SPAN LIMITS NOT WITHIN TIME SPAN OF RUN) 


* SET GRAPHC2 TIME LIM{TS TO CONCUR WITH COMI! TIME LIMITS AND 
WRITE ERROR MESSAGE AS APPROPRIATE 


* READ NEXT CONTROL CARD 


* READ CONTROL CARD FOR VARIABLE INDICES 
* ENTER GRAPH TITLE AND VARIABLE INDICES IN TABLE OF CONTENTS ARRAY 


* DO UNTIL (LAST GRAPH IS DONE) 


* SET ARRAYS FOR BUILDING GRAPHS TO ZERO 
* INCLUDE (SET UP CONTROL INPUTS FOR NEXT SET OF PLOTS) 
* RESET TAPE3 TO NEXT DATA POINT 
* DO UNTIL (END OF FILE ENCOUNTERED ON TAPE3 OR TIME GREATER THAN TMAX) 
* READ NEXT DATA POINT IN FORM CORRESPONDING TO MODEL VERSION 
IF (TIME GREATER THAN TMIN) 


INCLUDE (TRANSFORM DATA FOR CURVE SMOOTHING) 


* END DO 


* DO (FOR EACH PLOT IN THE CURRENT SET) 


* DO (FOR EACH CURVE ON A PLOT) 


we 
x 


* INCLUDE (STORE DATA VALUES AND SCALE DATA) 


END DO 


INCLUDE 


INCLUDE 


INCLUDE 


INCLUDE 


INCLUDE 


* END DO 


* END DO 


* END GRAPHC2 


(BUILD PLOT TITLE ON TAPE6) 


(SCALE PLOT AXES FOR TAPE6) 
(SMOOTH THE DATA FOR PLOTTING) 


(RECORD THE DATA VALUES USED ON TAPE6) 


* PRINT TABLE OF CONTENTS 


(RECORD THE PLOT ON TAPE6) 
} 
i 
: 
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APPENDIX C 


EXAMPLE JOB CONTROL LANGUAGE 


4 


‘1 


Receding Fuge Blah 4 


| 
153 


FORMS ,STTCZ,T100. 

ACCOUNT, ’ 

REQUEST, TAPE7, *PF. 
ATTACH, LGO,FORMBIN, 1 D= 
LDSET,PRESET=ZERO. 

LGO. 

REWIND, TAPE7. 
CATALOG, TAPE7 ,DICTION, ID= 
/EOR 

<ARTILLERY OR AIR CONTROL CARD> 
<VARIABLE DEFINITION DECK> 
/EOR 

<VARIABLE DICTIONARY DECK> 
/EOF 


Example JCL for the FORMS program 
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AR “CRT,STTCZ,TIOO. 

ACCOUNT, : 

REQUEST ,TAPE2,*PF. 
REQUEST , TAPE3,*PF. 
ATTACH, TAPE7 ,ARTY7, 1D= 
ATTACH, LGO,COMBATBIN, 1 D= 
LOSET ,PRESET=ZERO. 

LGO. 

REWIND ,TAPE2. 

CATALOG , TAPE2 ,ARTBASETAPE, I D= 
REWIND, TAPE3. 
CATALOG, TAPE3 ,ARTY3,1D= 

/EOR 

ARTILLERY 

CONTROL TETFE 6.0 

<INSERT ARTILLERY NAMELIST DECK HERE> 
CREATION RUN FOR ARTILLERY 


DEQ a -015625 0.0) 8.0 100. 
<INSERT MODIFY CARDS HERE> 

/EOR 

/EOF 


Example JCL for COMI! Creation Run 
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AIRBC,STTCZ,TI00. 

ACCOUNT, : 

REQUEST ,TAPE3,*PF. 

ATTACH, TAPE] ,AIRBASETAPE, 1D= 
ATTACH, TAPE7,AIR7, ID= 
ATTACH,LGO,COMBATBIN, | D= 
LDSET,PRESET=ZERO. 

LGO. 

REWIND, TAPE3. 
CATALOG , TAPE3 ,AIRBASE3, ID= 
/EOR 

AIR 

CONTROL FFTFF 0.0 
MODIFIED AIR BASE CASE 


DEQ Des .0078125 0.0) 
<INSERT MODIFY CARDS HERE> 

/EOR 

/EOF 


Example JCL for Normal COMII Run 


6.0 


96.0 


j 
| 


ARTYRS ,STCZ,T100. 
ACCOUNT, ; 

REQUEST, TAPE3,*PF. 
ATTACH, TAPE4 ,ARTYOUT3, ID= 
ATTACH, TAPE7 ,ARTY7, I D= 
ATTACH, LGO,COMBATBIN, 1D= 
LDSET ,PRESET=ZERO. 

LGO. 

REWIND ,TAPE3. 

CATALOG, TAPE3,ARTY3, | D= 
7EOR 

ARTILLERY 

CONTROL FFTFT 88.0 
RESTARTED ARTILLERY BASE CASE 


DEQ ls - 122070 0.01 
<INSERT MODIFY CARDS HERE> 

/EOR 

/ EOF 


Example JCL for Restarted COMI! Run 
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200. 


ARTOUT,T50,STTCZ. 
ACCOUNT, : 

ATTACH, TAPE3,COMI IOUT, ID= 
ATTACH, LGO ,ARTOUTBIN, 1D= 
LDSET ,PRESET=ZERO. 


LGO. 

/EOR 

TYPE] 10R31 
TYPE003 4G12 
CHANGE =] 
TYPEO02 0G12 
/EOF 


Example JCL for ARTOUT and AIROUT Run. 


So ee 
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GRAPH ,T50,STTCZ. 

ACCOUNT, , 

REQUEST, TAPE6,*PF. 
ATTACH, TAPE3, COMI IOUT, | D= 
ATTACH, LGO,GRAPHBIN, | D= 
LDSET ,PRESET=ZERO. 

LGO. 

REWIND, TAPE6. 

COPY , TAPE6 , OUTPUT. 


/EOR 
FLUMIE 

GRAPH RUN 

1100 1120 2000 
/EOF 


Example JCL for GRAPHC2 Run. 


APPENDIX D 
COMBAT-I1 SOURCE CODE 


PECEAING Fezgé BLaWh -, 


aananrIianna 


£34) 2 


aoanon 


99R 


999 


1090 


1110 


PROGSAY FORMYSCINPUT,OUTPUT,TAPESZSINPUT, TAPEGSOUTPLT, TAPET,TAPEB, 
‘ TAPED) 


TRIS PROGRAM GENERATES INPUTS TO THE COMBAT YI MODELS, THESE 
INPUTS AREt A NAMELIST CARD DECK, AN INPUT TAPE FOR THE 
MOMEL, AND TWO BLANK FORMS LISTINGS (WORKING SHEETS), 

THE FIRST INPUT CARD REAN ITS EXPECTED TO SPECIFY WHICH 

MONFL (ATR OR ARTILLERY) JS BEING USED, 


CIMMON SFILE/S TNAME, TCONEs S067), AN, RN 

DIMFNSTON NSC3)+FILECI19 + VNAME(2000),VCODE (2000) 
DIMENSTON XNAMECT)-/ELEMNT(CTS,TOHK (LO), TEQL (16) 
INTEGFR COUNT 

DIMENSINN DUM(20) 

DYMENSIMMN CARD(2) 

ENUYVALENCE (FILE(S) + TNAME) 


INTTJALIZE "FORMS" VARTABLES 


DATA RBLNK/$H Ap TOCHK/CHLM,AHLL » 2HMR gy CHKL e CHNK ep CHT By QHKA, ON TAY OHIF, 
{ PHNA 2H IM, CHKR D> CHKW, PHT S,CHNA,PMICS p TERLSOR2, SHS ed SHS 415, S0e 
? BS7,TRLNK JIM sp NCDSSIOS, TYPSILHXS 

SwTtash 

COUNTSs4 

TVvso 

CHECK wHICH MODEL THIS 16, 

REAN (5,99) MODEL 

IF AIT® MONEL, REeINITIALIZE SOME THINGS 

IFCMONEL EQ OHARTILLERY) 69 TN 999 

IF(MODEL FN, 3HATR) GO TD 998 

WRITE (6,98) 

stp 

NCOS = $e 

TCHK (11 YS2HNA 

ICHK(12)SPnN5C 

TEQL (112210 

IEOL(12)53R 

WRITE (9,406) 

WRITE(7) MODEL 
CONTINUE 

IPAGES$ 

NTIMES = w{ 

ICNTS100 

LOC=s0 

NUM{ es! 

NIIMP EO 

WRITE (6,200) IPAGE 

IF(SWTA.NF.0O) GO TD 1116 

SJskKe_ls! 

NJSNKSNLS4 

IFCTYP.NE BLNK) VFILESTYP 


REAN A MCOMBAT YT" VARTABLE, ITS TYPE DESIGNATIR AND TTS THREE 
SIIRSCRIPT DESIGNATORS, IGNORING CARDS WITH 3LANK VRBL FIELD 


READ(5,101) VAR,TYP,I1,72,73 
TP CENMECSY) 1700,9915 | 


162 


ns a 


1115 CONTINUE 
TF (CVAR,EG.BLNA) GO TO 1110 
IF(VAR LEAL {HV) GI TO 1700 
IFC OVAR,EQ,SHROOOL) AND, (TYP,FQ,34X)) KRITE( 9/407) 


CHECK THE VALIDITY OF EACH OF THE THREE SUBSCRIPT DESIGNATORS 
IF A SUBSCRIPT DESIGNATOR TS NOT ALLOWED PRINT AN ERROR MESSAGE 
AND STOP PRIGRAM EXECUTION, OTHERWISE, FIND THE ALLOWED MAX 
VALUES FOR THE SET DF SYRSCRIPTS OF THE CURRFNT "COMBAT TY" 
VARTABLE FRIM ITS SURSCRIPT DESIGNATORS, 

SET THE FLAG "ICO" ACCORDING TO THE NUMBER OF SLIBSCRIPTS, 


ET ET NE a a ee 


aorIanInanInin 
ate 


{116 D9 y120 ye1,NCDS 
IF (I1,NE,YCHK(I)) GO Tho 1120 
JISTEAL (IT) 
Tede4 
IF ¢Y.FO,6) GO TO 1300 } 
69 TM 9400 ; 
1120 CONTINUE 
IF (11.NE.YFBLNK) GI TO $130 
redeu } 
69 79 4300 : 
1130 wPITE (6,201) I} : 
STOP1 : 
1140 99 1160 Yei-NCOS : 
IF €72.NE,1CHK(T)) GO 7D 1160 ft 
KKSTEOLT) ; 
ICO=2 | 
IF (1,E9,6) GD TN 1300 ; 
69 TO 1180 I 
1160 CINTINUE a 
IF (JJLEN.TCHK(6)) GI TN 1300 
WRITE (6,201) 12 
STOP2 
1180 TF (I3,FEN,TCHK(6)) GO TO 1200 
TFCT3.EQ,TCHK(10)) GO TO 1190 
WRITE (6,201) 13 
STOP3 
1190 LLEYEAL (10) 
TCOe3 


| 
| 
| 
GD TO 1300 
| 
| 


1200 LLETEOL(6) 
TcOs3 
1300 CANTINUE 


C 
c AO UNTIL MAX VALUE OF FACH SUBSCRIPT IS REACHED, 
Cc 
DN 1600 LEYeLkk 
DO 1690 KeioKk 
BD 1600 JelieJdJ 
C 
Cc GENFRATE & SEQUENCE NUMBER AND A SET OF UP TD THREE SUBSCRIPTS 
C FOR THE CURRENT "CUMRAT TI" VARIABLE, 
C 
LOCeLoce! 
7 
C WHEN SEVFN ENCODED VARYASLES HAVE BEEN GENERATED, PRINT THE 
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aaraann 


aann 


OOOO AANINAO 


1320 


1400 


1410 


1420 


1430 


1449 


1590 


ENCODED TYPE X OR P VRALS AND THEIR SEQUENCE NUMRERS JN & MAX 
QF SEVEN COLUMNS DISPLAY FORMAT (1ST LISTING OF BLANK FORMS), 
WRITE THE SAME VRBLS AND SEQUENCE NUMBERS ON TAPE 8B FOR 

LATER USE (CUNFORMATTED), 


BF CEDCLEES?Y Gh TO $4800 
NTIMESENTIMES#1 

IF (NTIMES.LE.6) GO TO 1320 
NTIMESSO 

IPAGESTPAGES} 

WRITE (6,200) IPAGE 

CONTINUF 

ICNTETCNToI 

WRITE (62205) (M,M=ENUMJ,NUM2) 
NUMYSNUMDS4 

WRITE (6,202) XNAME 

WRITE (6,203) ELEMNT 

WRITE (H,204) VFILESTCNT, (4,M=1,7) 
WRITE(R) XNAME,ELEMNT 

LOoCe4 

CONTINUE 

NUMPSNUMC@]4 


FNCODE THE CURRENT "COMBAT IIT" VARTARLE, I79 TYPE DESIGNATOR 
ANS THE GENERATED SET OF SUASCRIPTS ACCORDING To "ICO" VALUE, 


ENCINE (6,408,XNAMF(LOC)) VAR, TYP 
GO TO (149%,1420,1430,3440), TIEN 
ENCOME (10,301-ELEYNT(LOC)) J 
NJsJ 

ENCNDF(10,404,2) J 

69 TO 1500 

ENCODE (10,302,ELEMNTC(LOC)) Jek 
NJsJ 

NK=K 

ENCMOE(10,U05,0) Sek 

69 To 4500 

ENCODE C1O,303,ELEMNTC LOCI) Sokol 
NJsJ 

NKEK 

NLSL 

OeFLEMNT(LOC) 

69 70 3806 

ELEMNT (LOC) SRLNK 

OSELEMNT(LOL) 


WRITE AN ENCODED TYPE X VARIABLE» IN NAMELIST FIRMAT, ON TAPE 9 
FoR LATER GENERATION OF THE NAMELTST DECK, 

SAVE A TYPE X VARIABLE (ENCINED WITH ITS TYPE DESIGNATOR) IN AN 
FLEMENT OF THE ARRAY "VNAME*® INDEXED BY THE CURRENT SEQUEACE 
NUMBER, SAVE THE CORRESPONDING SET OF GENERATED SUBSCRIPTS 
CENCONED SEPARATELY) IN THE ARRAY "VCODE" ALSO FNDEXED BY THE 
CURRENT SEQUENCE NIIMRER, 


FNENDE(16,402,CARD(1)) XNAMF(LIC),9 
TF(SWTA,EQ,%) WRITEC9,U01) CARDCII,CARD(2) 
IF(SWT4.NE,M) GO TI 1608 
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1600 


1700 


aAaAagIanan 


1720 


aa 


1750 


NaINIon 


1953 


1800 


1650 
18460 


IVETVe] 

VNAME CTV) EXNAME (LOC) 

ENCODE (6,500, VCODECIV)I) NJeNKeNL 
CONTINUE 

GO TO 116 

CONTINUE 


TF LESS THAN SEVEN TYPF X MR P VRBELS HAVE BEEN GENFRATED (TAIL 
FANS OF TYPE X AND P INBINT STREAM) THEN PRINT THE GENERATED ENe@ 
COMED VRBLS IN A DISPLAY FORMAT OF LESS THAN SEVEN COLUMNS (15ST 
LISTING OF 3LANK FORMS) 

WRITE THE SAME VR3LS AND SFIUENCE NUMBERS ON TAPE B FOR LATER USE 


ICNTSTCNTS] 

NTIMFSENTYMES¢+I 

IF C(NTIMES LE.6) GI TO 1720 

NTIMES#!0 

IPACESYPAGES] 

WRITE (6,200) JPAGE 

CONTINUF 

WRITE (6,205) (“,MENUY{,NUM2) 

WRITE (6,702) (XNAMECT),JE1,LNC) 

WRITE (6,203) CELEMNTCI),Te1,-L 90) 

WRITE( 6,294) VFTLE-ICNT,(™,M=1,7) 

WRITECR) CXNAMECT) »TE1,LIC),CELEMNT(S),T2ieL0C) 
JSE SWITCH 4 T3 DETERMINE wHETHER wE NEED TO LONP BACK ANN 
READ VARIABLES BEGINNINGS WITH & PL 
IF(SWTA,NE.0) GO TO 1750 

SwWwTazt 

VFILES {HP 

COUNTENIIMD 

69 TO 1000 

WRITE (9,403) 


WRITE NUMBER OF GENERATED TYPE K AND P ENCODED VRBLS ON A NEW FILE 
(TAPE 7) aND ON THE NUTPUT FILE, 
COPY TAPE B ONT TAPE 7 FOR LATER DUMP ON A MAG TAPE, 


REWIND & 

WRITEC 7) COUNT,NUM2 
WRITE (6,1953) COUNT,NUM2 
FARMAT(2(10X%,310)3 

127 

IFC’, GT,CNUNT) ITSCIUNT 
Je2et 

REAN (A) (DUM(K),K2$eJ) 
WOITEC7) (DUM(K),«e1,J) 
TFCT,EN.COUNT) GO TS 1850 
COUNTSCOUNT®@Y 

69 T9 4800 

127 

TFCY.GT NUMA) TSNUMe2 
Jzext 

REAN(RY (AIM(K),KE1,J) 
WRITEC7TY (NUM(K),KELe J) 
IF(T,EQ,NIIM2) GO TD 1900 
NUMBPENIIMD aT 
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ANaANnNN 


ana 


AaNaaan 


oonnr 


1900 


1905 


2905 


2906 


2907 


1906 


1910 


a 


1919 


1920 


GO TO 1f6A 


e@eNOTEee THE FOLLIAING TS & LATER ADDITION TO "FORMS", TY READS 
THE DECK wHICH CONTAINS NESCRYIPTIONS OF TYPE X VEBLS AND 
TY GENERATES THE 2ND LISTING OF BLANK FORMS AND THE “AG TAPE FILE 


IVMAXETV 
IvVetv/2 
TFLGSENFRENFBSO 
RNZ0,0 


READ A "COMBAT ITY" VRBL CWITH TYPE DESIGNATOR), TTS THREE 
TNNICES AND THE CORRESPINDING NARRATIVE DESCRIPTION, 


REAN(S, 59019 TNAMEC(NS(T) 12153), (OSCCT)-Teke7) 
TFCEDF(S)) 2995,2906 

stop 

IF(CTNAME, EQ, 3HEND) GO TN 2905 

DOM 2907 y=ai,3 

IFONS(1),F9,09) VSC(I)=0 

ENCODE (6,5S00,TOIDE) NSC1I/NSC2),NSC3) 


WHEN SPACE", "TITLE(*® BR *STTCESh TS IN THE VREE FIEED THEN 
PRINT PERTINENT COMMENTS, BLANKS OR TITLE 3 WRITE THE SAME 
TNFORMATIIN ON MAG TAPE FILE (TAPE 7), THEN, MOVE 77 READ 
NEXT CARD, 


IFCCTNAME NE GATITLEL) AND, CTNAME. NE, OHTITLEC) AND, (TNAME,NE, 
SHSPACE)) GO TO 1910 

MRLTECT) FIle 

IFC TNAME LEQ, SHSPACE) GO TO 1906 

IF(TNAME FQ,6HXTITLEL) WRITE (6,593) 

WRITE(6s50U) (COSCCI)+IE1,7) 

GO TD 1905 

IF CoSCr1) NELI4 ) WRITEC6,505) 

WRITE( 6,506) COSC(I)+151,7) 

TFOMSCCS).NELIM ) WRITE(6,505) 

69 TO 1905 


GENERATE THE BLUE AND RES SURSCRIPT SETS OF THE VRRAL FROM ITS 
THREE INDICES, 


TF(NS(1),&9,25) 6O TO 4929 
TFONS(3),.6T.0) 69 19 £919 
OO 1995 T=te3 
TFCMS(T),GE.9) GI TD 1915 
NSCY)s4 

IFLGst 

RNEP,O 

GN TM 1930 

CONTINUE 

RNS? 0 

69 TO 41909 

IFLGe3 

RNE2P4NS(3) 

69 TM 49309 

09 1975 f21,% 


1925 
{929 


1930 


2.08 Fc 


1935 


CF 63. C CP 


1939 


1940 


1964 


aanan 


1945 
1950 


£955 


oOnnoc®d 


1955 


manaInn 


IPENS CIV .61.02 69 TQ tees 

IFLGs! 

NSCT a4 

69 TO 1939 

CONTINUE 

GD YO 1930 

NS(1)50 

TFLGs! 

ENCODE ¢6,500,B8C09F) NS(1),NS(2).NS(3) 
NSCTFLG)ERN 

ENCIDE(6,500,R8C00E) NS(1)+NSC2)-NS(3) 


COMPARE THE VRBL AND ITS BLUE/RED SETS OF SUBSCRIPTS AGAINST THE 
PRFVINUSLY SAVED VRBLS (VNAMES AND SUBSCRIPTS (VCODE), 


IF(CTNAME EO, VNAME(TV)) AND, (VNAME (TV), NE, VNAME(IV"${)1) GO TO 1940 
IF CCTNAME GT VNAME CIV) AND CTNAME LT, VNAME(I VG$) )) GO TO 1939 

TFC CTNAME LT, VNAMECIV)) AND, CTNAME GT, VNAME(IV"9$))) GT TO 1939 

IFC TNAME GT, VNOMECIV)) YVSTVve2 

1VeTVe{ ’ 

IFCCIV LE, IVMAX) AND, CIV.G1.0}) GO To 1935 


A COMPLETE MATCH YS NOT FOUND, PRINT ERROR MESSAGE 4ND 
READ NEXT CARD, 


WRITE (6,597) ITV,TVMAX*+ TNAME,TOIDE, BCODE,RCODE 
IVETVMAX/2 

GO TA 44905 

JvD=e! 

IF (VNAME (CTV) NE VNAME (J VE1)) TvDe@w]{ 
IFCRCONE EN. VCOODECIV)) GO TN 1945 

IVETVEeYVD. 

TEC CIV, GT TVMAX),OR,(IV,LE.0)) GO TD 1939 

G9 TO 49a14 


A MATCH FOUND FOR BLUE, STORE SEQUENCE NUMBER (TV) FOR 
RLUE VERSION OF vRAL, 


NFRElV 

BNSTV 

IvOel 

IFC VNAME CTV) NE VNAMECTVGS)) TvDe0} 
IFCROIDE,FR.VCIDECIV)) 6D To 1955 

Ive fveyvp 

IFC CIV GT TVMAX) OR CIVVLE.0)) GO TO 1939 
69 TO 495] 


A MaTCH FOUND FO® REN: S&TNRE SEQUENCE NUMBER (YV) FOR 
BEN VERSTIN WF VRBL, 


A COMPLETE 4aTC 4aS BEEN FOUND PRINT THE VRAL, YTS INDICES 
THE CORRESPINDING NARRATIVE NESCRIPTION AND THE BLUE/ZRED SEG, Nuw 
A ENUR COLUMNS DISPLAY FORMAT (2ND LISTING DF BLANK FORMS) , 


WRITE THE SAME TNFORMATION JN TAPE 7 (UNFORMATTED), 
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Se ee 


a die ee neendaie/meeetttt Stee 


wWRITEC7) FILE 
DFCONDF (6,500, TCNDE) NS(1),-NS(2),N8(3) 
WRITE (6,502) TVAMES(NS(T), 121-3), (O0SCCI),1E1¢7),NFB,NFR 


MOVE TO READ NEXT CARD, 


aan 


69 TO 1905 


OR FORMAT (# FRROR em MODEL TYPE NOT RFCOGNIZED, FIRST CARD MUST *, 
+ *CONTAIN THE *KORD AIR OR THE wORD ARTILLERY,*) 

99 FORMAT( AYN) 

LO FIRMAT(CAS, AL, OX SC 4201 KI3 

200 FIRMAT (et NOTE © ALL ENTRIES ARE FLOATING POINT NUMBERS @ PUNCH L 
{EFT JUSTIFTEN WITH DECIMAL POTNTS#,15X,*PAGER,I3//) 

20} FORMAT (//% ERRONEQUS INPUT VARTASLE SUBSCRIPT = *,A2) 

202 FURMAT (22x%,7(410,5%)) 

203 FORMAT (29x,7(A10,5X)?} 

2O0G FIRMATES/SX AL, UHCDEF TS pe 7(SX pL O( LH) I/OXe TOLSK TS e1HT)) 

205 FORMAT (/19X,7(17,8X)) 

301 FORMAT (3X,"(e,T2¢%) 3X) 

302 FIRMAT (SK, e( HPT 2p ee teT Ope) ee2X) 

BOS FORMAT ( wler2lT2ree et), Tepe) *) 

GOL FORMAT(1X,A10,46,$45¢12X,14H,) 

402 FORMAT(A6,4A10) 

403 FORMAT(2H $) 

GOW FIRMAT(YH(,IT201H) + 6X) 

GOS FORMAT ({H(,T2e1H,,T2at bh), 3X) 

406 FIURMAT(HH SKINI) 

G07 FORMAT(2h $/bH $XIN2) 

408 FORMAT(AS5,A1) 

500 FORMAT (32) 

SOL FORMAT (A6,37T2,6410,48) 

502 FORMATCAX, AG, STB, 3X pTALO Kate vereveevcn(teldye)] itt ckowmace ke? 
. Tupaded 

503 FIRMAT(1H1,95X,*R LUE*, 1 UX, eREDe) 

SMU FORMATCUX/21LK, TALOSIX GL SCLOH  ceccceen)) 

505 FOURMAT(109xX,«T#) 

506 FURMAT(19XK,7A10,20X,eIT«) 

SOT FORMATCIX/1X, THRERRIRE/, 1X, TU, e HAS REACHED THE LIMITS OF 0 TOFS, 
{ BX,eLONKING FOR #,46,2X,46,3%,eWITH BLUE AND REDS ee Al0e1X,A10/ 
? {X,aNOT WRITTEN TO THE FILF#/) 
END 
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(ook Oe i om @) 


: e } 


1900 


PRIGRAY COMTYCINPUT,QUTPUT, TAPES, TAPE 2, TAPES, TAPEG,TAPES= 
+ INPUT, TAPE6=TUTPUT, TAPET) 


THIS RJUTINE TS THE MAIN FOR TF AYR AND ARTILLERY VERSIONS OF 
THE CIMRAT IT MODEL, IT REANS A SINGLE CARD WHYCH CONTAINS 
FITHER THE WIRD ATR OR THE WORD ARTILLERY, AND CALLS THE 
APPROPRIATE SUBROUTINE T3 RIIN THE MODEL, 


REAN (5,190) MONEL 

FURVAT(AIO) 

TFCYONEL FQ, SHAIR) 60 TA 1000 

IF CMODEL LEQ, GHARTILLERY) GO TN 500 
ERROR OUT 

WRITE (6,200) MINEL 
FORMAT(IH1,®ERROR |= INVALIN MODEL CARD © #/410) 
sfope 

CONTINUE 

ARTTLLERY MINEL 

CALL APTINPT 

sToe 

CONTINUE 

ATR MASFL 

CALL AYRINPT 

sToP 

END 
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AMO MrMMrIone co 


SURRUUTINE AIRINPT 
ATR MODEL INPUT ROUTINE 

THTS MODULE READS THE CINTROL CARDS YO DETERMINE THE 

TYPE CIF RUN (CREATION, NIRMAL, RESTART) AND THE 

OUTPUT DESTRED, THE CIMYON BLOCKS ARE INITIALIZED AND 

THE INTEGRATION PARAMETERS ARE READ, ALL MODIFY CARDS 

wIThH A TIME C= THE START TIME SPECIFIED JN THE CONTROL 

CARD ARE READ AND THE DESIRED VALUE CHANGES MADE 

PRIOR TL) RUNNING THE MODEL, 

CONMON /XCOEF/S C€9010K(2),060020% (2),060030X(2),C0040K(2),C00S0xX(2r2) 
1,09213X0€3,2),00212X(3,2) 6C0213% ($02) ,6C90214X (3,2) 6C9215%(3,2,7),092 
231X02,2),60232K(2,2),0C0233X02,2),C0254xK( 2,2) ,6C0235X( 2,22) -C02U2X( 
32),C0243xK(2),C0O244x(2),C024U5xX02),C00253x(2),C0252xX(2),C0253x(2),002 
4S4x(2),C0255X(2,2),C9261X%(2),CO262x(2),C9263xK(2) -C0264XK(2),069265x 
5272) /CO307X( 2,242) ,COUVEX(2),CO407X(2),C05131x%02),C0512x(2,2),00513 
6X(2,2),060521%(2),C0522x(2) ,€90551x%02),09552xK(2),00691X%,0060%3x(3,2 
7),C0604XK(2),C0605X(2),C0606X(2) ,CN607K (2) ,-C0610X(2),C0611X(2),C041 
63x(2),C0614x(2),E0511x(2),E9512X(3,2,2),F 052 
DIX CAL FOONIXC 3, 2ad,FOVOIX(C 3,2. pFOLO2X (2) ,FOLGSK(2),FO104X(3,2),F 010 
5X(3-2),FOL06OX(3,2,,FOLO7TX( 3,22) oe FOLOBX(3,2,2) pF OIN9X(2),FO201xK( S$ 
1-3,2),F0202X(3,3,2),F0301X(2,2), 

RFOBZIAK (2, 3,2) 5F 0303K (2,342) pFOSO4X (2,2) sFOSOSK(2p2) rFO30EK(2,2n2)e 
1FO307xX(2,2),F0308X%(2,2,2) ,F0401x( 3,2), 

2EFOUN AX (3,2) ,F O60IX (3,2) ,P0001X03, 3,2) ,70002K(3,3,2),F90903K(3,3,2)5 
BPONNGK (3, B,2) FNL 01X(3,2,2) ,P01NEX( 3,2, 2) ,POL03SX( 3,2) ,P9104K(3,2), 
6P0105xK(3,2), POLO7TX( 3,2) 2POL0BX( 2p 322d ,POL09X( 2s 52) 4 PIN3Z01X(2,2),° 
503N2xX%(2,2) -P0303K (2,2) ,PO0S0UK (242) pPOSNSX (2,242) oP ISD06X(242),P0307 
6X 0246272) 7P0325K63,2,2) ,POS2UK( 3,242) ,P0325X (3,272) ,P0326X(5,7,4), 
T POS27TX(3,2,4) -POUNIX(2),POU02XK(2),P0403xK(2),P0404X(2),P0405K(2) 


COMMON /XCNEF/S ROOOIXK(2), 3,2) ,80301X(2,2) ,ROUOIX(2)-RO402X(2), 
1ROS71X (2,342), ROSTAX (2,202) pROSTUXK (2) ,ROSTSX(2)eROS7TOX( 2), 
PROS7T7X(2),ROSTAX(2,2),ROS7TIX (2,2) -R0601K,R0602X (2) ,ROE03XK(2C), 
BROBNUKX(2),RO605SX(2),RO7TOOX (Are), VOS4IX(2,2),V0545X(2,2), 
4v0551x(2),V0552x%(2),V0601X(3,2),V0( 38,2) 

COMYONSPV/X1(01252) 

CIMMUINJPDV/X2(792) 


COMMON /XINTEG/ TINC,DELT/ERRIRsDTINER, TOUTER, TEND, CARD (BR), ALPHA 
COMMON/NICT/SPNAME ($275) ,PELMNT(1275),SH*T3,9X1,0X2 
COMYON/SDICT2/XNAME (792) ,ELEYNT(792) 

COMMUN /FILE/ TNAME,TCODE,0SC(7) + BNy RN 
NIMENSION NS(3),FILE C11) 

DIMENSION XCOEFC1),INDEX(4),VAL(4) 

NIMENSTON TITLE C6),TITLED(6) 

NIMENSION TITIC3)-TITAC3)»,TITSC3) + TITAC3), TITS (3) eDSCROT(B) 
{ »TYPE(4) 

LOGICAL RFLG,OFLG,DFLG,TFLG,RFLG,IER 

FQUIVALENCECFILE (1), TNAME) 

EQUT VALENCE (XCNEF (4), COOL0X(4)) 

NAMELTST /XINIZ COOTOX,C9020K,0600 30X,COOU0K,CONSOX,CO211X, 
1CO212x%,C0213x%,CO214X,CO215xX%,C0231xX,C9232Xx, 
200233xK,CO234x,CO235x, CO2U2xX,C02U3x, 
*CoP4ux,CN2u5x,00253x,C0P52x,C0253x,C025uX, 

#CN255x, C0261 xX, C026PX%,CU2H3X,CO264X,CV255X, 
#CO3N7X,. CO4n6x,COU07X, 
BCoSi1¥,C0512¥,0051 3x, COSe1x,COS22x,CO5S{x,CO5S2x, 
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SCOH01X,CO603X,C0604K,C060Sx,C0O06XK,C9607x, 
SCOO1OK,COOTIX,CO613x,COB{4xX,EOSIIX,ENSIex, 
CENSPIX,FONOIX,FOIOIX,FO{Oex, 
TEOLOSX,FOLOUX,FOLOS KH pF OLINSK,FOLOTKX,FOIORY, 
BFOLCIY,FO2ZOLX,EN20AK,FOSOYX,FUSDOX,FOSNSK,FOZDUX,FNSNSX, 
DFA BbY,FOSOTX,FO30RBK,FOUNIX,FOUNeX, 
FFOBOITX,POOOLX,PONDEX,P0003K,P0004UX,POI10IX, 
1PN{YOPK,FOL03¥Y,F0104X,POLO5SX,POL07TX,P0L0Bx, 

PPOLO9X, PO3Z0IX,PO302K,PUSN3X,POSNUX,PO305x, 

BPO ZOOX,PO3ZN7TX,PO323K, PO 324K, PI 325XK,P9326Xx, 
SPOS2TKX,POUOIX,PO40PK,P0UNSK,POUDKXK,PO40SX 

NAMELIST /XINO/ RONOLX,ROSOYXARNGOIX,ROUNAX,ROS7TIX,ROST2X, 
1ROSTUX,ROSTSX,ROSTOX,ROST7X,ROSTAX, 
PROSTIX,ROOOLX,2N602K%,R0603xX,R0604UX,RO60SX, 
BROTONK,VOS4IX,VOSU5X,VOSSIX,V0SS2X,V0601xK, V0 

DATA (TITLECI),Lei1,2)/10HCOMBAT ITI sIOHAIR MODEL / 


DATA TITI/SIOHCONTROL PA,LOHRAMETERS ,104 / 
DATA TIT2/IOMINITIAL CO,10HFFFICIENT ,10HVALUES / 
NATA TIT3/10H#DEQ INTEGR,IOMATER VALUE, IONS / 
DATS TITU/IOHMIDIFIED Cel1OHDEFFICIENT,10N VALUES / 
DATA TITS/LORRUN DESERI,LOHPTIONS 0i0w Js 

{ QSCEND/IOREND / 

DATA TYPE/LORCONTROL pLOHXCOEF + 1OHDER ' 

{ LOHMONIFY / 

DATA MIV/7T9B/,SWT3/0/ 
PRINT 4 


1 FURMAT (tHe) 
TERZ,FALSE, 
CALL XMATE (DATE) 


C 
C READ CONTROL CARD FOR THE RUN 
c 
RFAN(S,INOITYP,RFLG,OFLG,OFLG,TFLG,BFLG,TT 
C PELG @ READ CONTROL (TeJTNPUT NEW DATA SET) 
(> NFLG © HUTPUT CONTROL FLAG (TeOUTPUT ALL PARAMETERS 
(x DFLG - DEN CONTROL FLAG(T#ODuUTPUT DEQ/TIME RECORD) 
c TFLG e INPUT TABLES CINTROL FLAG (Te TO DISPLAY) 
C RFELG e RESTART FLAG (F e& FOR A NEW GAME) 
€ aa: = START TIME OF GAME 


TE “CTYPLEG TYPECIO) Gh TH e0 
WRITE (6,300) TYP,RFLG,OFLG,DFLG,TFLG,TITLE 
WRITE (6,301) TYPE(1) 
IERS, TRUE, 
1120 CALL LCHPTR (TITLE,SH ,10,DATE,=1,60) 
TFC(DFLG) Sat sei 
CALL REMARK( 10H ) 
CALL REMARK (LOHRUN TITLE?) 
CALL REMARK(TITLE) 
CALL REMARK (104 ,) 
VL=0 
CALL LCOHPTR (1H ,TIT{,30,NATF,NL,#55) 
wRITE (6,201) RFLG,OFLG,DFLG,TFLG 


c ERROR CHECK FOR CORRECT TAPE 


READCT) “OOEL 
FECSODE EU , ON SRATRD GO TO 2YS0 
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C 
C 
C 


mre 


1190 


1200 


1205 


1296 


1207 


beso 


te2Ls 


WRITE (6,159) MODEL 
STNPe2 

REAN(7) NXCOEF,NV 

IF (BFLG) GO TO 1205 
IF (RFLG) GO T) 1200 


NORMAL RUN = READ BASE CASE VALUES FROM TAPE 4 


READ(1) MODEL 

TF (MODEL EG, SHAIR)Y GN TO 1990 

WRITE C6,150) MONEL 

stae 2 

READ (1) TITLED, DATEO, (XCOEF (I), 1=1+NXCUEF ) 
WRITF (6,202) TITLES,DATESD 

69 TO 1210 


CREATION RUN @ REALTY THE BASE CASE VALUES FP CARDS 


CONTINUE 

REANCS,XIN1I) 

RFAD(S,XTN2) 

wRITE (2) 1OHATR 

WRITE (2) TITLE, DATE, (XCMEF(I),T=1,NXCIEF) 
GO Ta Cero 


RESTART RUN = READ THE INITIAL VALUES FROM A RESTART TAPE 


REAN(G) MODEL 
TE CMODEL,EQ, SHAT?) GN TD 1206 
WRITE (6,150) MODEL 

STOP 2 

REAN(4) (DSCRPT(K), K=1,8) 

IF (COSCRPT(1),NE,OSCEND) GO TD 1206 
REAN(Y) TITLEO,NATEO,OUNMY 


RESTART RUN = READ THE TAPE UNTIL THE START TIME FOUND 


REAN(G) TIME, (XCOEF(T)» TE1,NXCIEF), (XICT),TE1,NV), 
#+(X2°1), Tei,XDv) 

IP CTIME,LT,TT) GO TO 1207 

WRITE (6,202) TITLED,MATED 


IF INITIAL COEFFIECENTS DESIRED THEN PRINT THEM 


CONTINUE 
FEC yg Sly gBEEG) GO ha fers 

NL=0 

CALL LCHPTR (1H ,TITC,30,NATE,NL, #55) 
NTIMES=0 

NCARDSS((NXCOERO1)/7) 41 

J2=0 

MA 1260 Jei,NCARDS 

Ji=sJee)} 

J2=Je4+7 

TE CisthyNESRDS) JLenxXeuer 
NTIMESSNTIMES#1 

re CNT YMESFLESTI CO Th Pe!|o 
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1220 


1260 


1265 


AANO 


1270 
1280 


1290 


1300 


aan 


$310 
Fes 


1320 


1325 


NTIMESS] 

IFC,NOT,OFLG) GN TN $220 

NL3O0 

CALC LEHPTR CEH , TIA. 50,DATE PNLs = 95) 

REA) (7) (XNAME (J) ,JeJ1eJA,CELEYNTOJ) JeJ1,J32) 
IF (,NIT,OFLG) GO TO 1260 

WRITE (6,203) (J,J201,Je2) 

WRITE (6,204) (CX*AME( J), JSJ1,Je) 

WRITE (6,210) (CELEMNT(J),J5J1,J52) 

WRITE (6,205) (XCOEF (J) ,JsJi1,.J2) 

K2100¢] 

WRITE (64206) K,(M,ME$1,71,10) 

CONTINUE 

NCARPDSS((NVEL)/7) 41 

J2=s0 

AN 1265 Jel,NCARNS 

Jtete¢] 

J22Jee7 

IF(I,FQ,NCARDS) J2eNnv 

BEAD €7) €PNAME CD) op Jeol, Je)* CPELYNT (CJ), Jedi, 32) 


READ RIN NESCRIPTINON 
AND PRINT NESCRIPTION ON OUTPUT TAPE AND PRINTER 


NL=o 

WRITE(3) LOHATR 

CALL LCHPTROVH ,TIT5,30,DATE,NL,=55) 
NTIMESS] 

REAN(S,U402) ODSCROET 

Te GEOR CS)) 1500, £290 

FEC OSGRET CI) ¢EC. SHDEGD GO Ta £520 
WRITE (6,405) OSCRPT 

WRETTE (3) (OSCRPT(I),121,8) 

MT IMESSNTIMES+{ 

IFCNTIMES,G1T,25) GO TO 1270 

GN Th ,eR0 

WRITE (6,404) 

WRITE (6,301) TYPE(3) 

TERE, TRUE, 

GN TO 3000 


ALL THE DESCRIPTION HAS BREEN REAN AND THE DEQ CARD FOUND 


WRITE (3) DSCEND, (MSCRPT(J),J22,8) 

TEC SOT TEELG) GO TO 73s 

REZAOCT) FILE 

IF CEOFC7)) 1335,7 320 

TE CTMAME pF 0, SHSPACE) GO TO 1325 

TEC CTNAME NE ,OHTITLEL) AND, CTNAME,NE,65TITLE2)) GO TO 1330 
LM 24) 

TE CINSME SEO SOHT IT TLE 1) CALL LOHPTR(14 ,TIT2,30,DATE,NL,&S5) 
IF CTNAME EQ, 6HTITLE1) wRITE (6,504) 

WRITE (6,507) (OSC(I),J2147) 

6 iy {SiS 

EP COSC CL) NE, ih ) WRITE COs 50S) 

WRITE (6,506) (OSC(T),1T8147) 

LTPCOSC ED) «hE at! J} wRITE C6, 505) 
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69 Tt 13495 
1330 NFRSBN 
NFRERN 
RNSXCOEF (NFR) 
RN=EXCNEF (NFR) 
DELODE (6,500, TCOUDE) NS(1)9,NS(2),NS(3) 
PN 1331 rs1,3 
TF OCENSC EY GGE 0) OR ONSET) UT ees) GO TS 1354 
BN=1,0°BN 
RNZ1,0"RN 
$331 CONTINUE 
WRITE (6,502) TNAME,(NS(T) -T34-35) ,(OSCCIV¢-1 E157) + BNeNFR,RN,NFR 
GO TH £345 
1335 CONTINUE 


Cc 
C DECODE THE INTEGRATION PARAMETERS 
€ 
DECODE(R0,103,DSCRPT(1)) TYP,TINC se DELTP ERROR, DTINER, TEND, ALPHA 
€ TINC = MAXIMUM INTEGRATION INTERVAL ALLOWED 
c DELT © INITIAL INTERVAL DT 
C ERRIR = ERROR PARAMETER SPECIFICATION FOR DEO 
C DTIINER » JNNER LONMP DT 
C TEND = END OF INTEGRATION TIME 
€ ALPHA © SCALE FACTOR FOR ACQUISITION EN,S 
NL=0 : 
GALL LEXPTR CEH sTIT Sa S0u DATE NES @S5) 
WRITE (6,207) TINC,DELT,ERROR,DOTINER, TEND, ALPHA 
€ 
g REAM IN THE: MODIFY CARDS UNTIL A CHANGE TIME > THE 
C THE GAME START TIME IS FOUND 
C 


NL=0 
TOUTERETEND 
1650 READ(S,§04) CARD 
IF (FOF (S)) 2500,1790 
{760 IF CCARDC1),EC, TYPEC4)) GO TO 1800 
WRITE (6,302) CARD 
WRITE (6,303) TYPECU) 
TER=,TRUE, 
GO TO $650 


C 
c DECODE THE MODIFY CARD AND CHECK THE CHANGE YIME 


1800 DECODE (70,401,CARD(2)) TIME, CINDEXCI), VALCIT),-1=1,4) 


t TIME - TIME AT WHICH CHANGE IS TO TAKE PLACE 
& INDEX © INDEX OF PARAMETER BEING MIDIFIED 
c VAL = NEw PARAMETER VALUE 


TF CTIME,GT,9,.0) GO TO 2000 
DN 41660 J=si,4 
TP CINDEXCI DLE, 0) GO TO 1e60 
KSINDFEX(J) 
MONIFY THE INITIAL VALUE IN THE COMMON USING THE INDEX NUMBER 
XCUERCK)SVAL(T) 
CALL LCHPTR (1H ,TITU,39,DATE,NL, #55) 
TF (NL,EQ—e2) WRITE (6,208) TIME 
WRITE (6,209) K,XNAME(K),ELEMNT(K),VALCT) 
$840 CONTINUE 


oO 


READ (5,104) CARN 
IF (EMF (S5)) 2500,1700 
2000 TOUTERSTIME 
GO TO 3000 
2500 TOUTERETEND 
3000 CONTINUE 
IF €IER) STOPS 
WRITE (3) TITLE,NATE,TINC,DELT,ERROR,DOTINER, TOUTER, TT, TEND, ALPHA 
IF (NOT, BFLG) TTseTT 


Cc 
C RESIN THE STIMULATION 
C 
CALL ATRMODL (DATE, INDEX, VAL,NXCOEF,NV,TT,NDOV) 
C 


109 FORMAT(AJS0,5L1,F5,9,6410) 
10$ FORMAT(410,6F19,9) 
OU FURMAT (BA$0) 
150 FORMAT(//10K ERROR axe, *MINEL TYPE NOT RECOGNIZED: «, 
#410, *: EXPECTEN TYPF « AJRe) 
201 FORMAT(S//10Xe,#RE AD FLAG = e,L3B///10XK,*#0UTPUT FLAG = #,L3///10X, 
{ *TIME RECORD FLAG = #eL3///10K,tINPUT TABLES FLAG = *,13) 
202 FORMAT (///10X,e INPUT DATA SET TITLE = *,6A10,///$0X,*xINPUT DATA § 
{ET CATE = *,410) 
203 FORMAT (/$9X%,7(17,8X)) 
204 FORMAT (22x,7(410,5X)) 
205 FORMAT ($HO,17X,7(E13,602X)) 
206 FORMAT ( Sx,exCNEF a, IS, 7(SX-10( 3) ),/6xX%,701 3X,12)) 
207 FORMAT (///S0X,#TING = &,F10,5,//10X,*DELT = %eFI0,5,//) 0X, 
{ RERAOR = e,FINS,/S/SLOX,#NTINER =#, FIO, Sp//1 0X, 
2 aTEND = ReFILOGS/S/1I0X, #ALPHA = %,F10,5) 
298 FORMAT (// PARAMETERS MODIFIED AY TIME © #,F10,5//) 
209 FORMAT (10K, #XCNEF(e,13,%) = #,2410,% = #,E13,6) 
219 FORMAT (20X,70A10.5X)) 
309 FORMAT(15X%,410,4L1,8x,6410) 
30] FORMAT(//1X,SHaeekee,e ABOVE CARD MISPLACED OR UNIDENTIFIABLE®, 
{ 5X,*EXPECTED CARN TYPE *,A10) 
BN2 FORMAT (//5X,8A10) 
UO} FORMAT (F10,0,4°15,F10,0)) 
402 FORMAT(RA1O) 
403 FORMAT(1XK/,21X,8410) 
YOU FORMAT({HI//3X,15He END OF FILE ®#) 
500 FORMAT(3I2) 
502 FORMAT (1X,46,313,3x,7A410,3%,F11,4U,e(e,T4,e%) J erFIS,U,e(%,]U,%)&) 
SOU FORMAT(YX/9SX,#*RLUER, I UX, #RED*) 
50S FORMAT({09XK,4]T«) : 
S06 FARMAT(I9X, TAIN, 20X,%Te) 
SAT FORMAT CL X/ 21K TALOS IX) 1 SCLOH, ceeweeeenw)) 
END 
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AMOAONMHOANANaM 


im) 


SURBRUIUTINE ARTINPT 


ARTILLERY MODEL INPUT ROUTINE 
THIS MOMULE READS THE CONTROL CARNS TO DETERMINE 
TRE TYPF OF RUN (CREATION, NDRMAL,RESTART) AND THE 
OUTPUT DESIRED, TRE COMMON BLOCKS ARE JAIJTALIZED 
AND THE INTEGRATION PARAMETERS ARE READ, ALL MODIFY 
CARDS WITH A TIME <= THE START TIME SPECIFIED IN THE 
FIRST CARD wILL BE READ AND THE APPROPRIATE CHANGES 
MADE PRIOR TN RUNNING THE MIDEL, 

COMMUN /XCOEF/ €0010xK(2),C0020x(2),C0030xK(2),CO040X(2), 
Ca00Soxk(2,2)},C0060K(5,2) pCOOTOX(S,2),CO211X (3,2) -CO212X( 5,2), 
Chet Sx¥C3, 2), COSLEe (SrA sb O215X{ Seee2) pCOCTSX 037572) 

CVS17 XC SeSn.2? COSSLN Cope ,COe Sex (ere lsglOeS SX (ere eCOCS4K Cove ts 

CO235X (024202) CO23OK (2,502) COL3TK(265,2) -CO242X(522), 

C92U3xK (5,2), CO24UUxX(8,5,2)-C0251X(2),C0258e% (2) ,C0253X(2), 

CO254UX(2),CO255X62,2) 0C0256X(5,2) ,CO257X(5,2) -CO261X(2), 

COA62xX(2) ,CO2H3K(2) ,C0264X(2),602065%(2,2),00266xX(5,2), 

COSETY ES 20 GOST Cer ere GOS lixte) -C0SLexk Covet sEOS) SX e012) 
9€60521x(2),C00522x%(2),C0523X(5,2),C0601x,C06035x%(3.2),C0604XK(2),69605 
*X(2),60606X%(2),C0607X(2),C0610X(5,2),C0611X(5,2),C0612X(S.2), 

! FOSTUXI2) cE OSTAKCS),EUSIS* Cone) ,E0SIUX Cece), EOSeIxk Ce), 

? FONOIXC 3,2) ,FOLNIXC 3,2) sFOL02X(2),FO{N3X(2),FO0I0UX( 3,2)» 

3 FOLOSX(3e2s,FOL OOK (3,2) -FOLO7X (3,222) pFOLOBX(3,2ec ed sFOLO9X (2), 

u 

Ss 


ENTWNOWNM— 


FOLLOXK (S22) -FOLLIX C3, 522), FO201XCS, SpeteF 0202% 03, S,2), 
FO203xK05,15,2),F9301X(2223,F0502X(2,3,2), 
6 FOSOSX(lr 3,2 ,FORNUX (22) eF0305KX (2-2) ,F0306X (21222) s 
TEQSATX CS ov eFOSORN Ce pe rele OSOOK CS, SecleF OSLO Cer 1Ss 2) sF OSL X (eS. 
BPAY,FORLAX (2, 3542) -F 0402X(5,2) F040 5K (5,2) pFOU0KX (5,552) 


COMMON /XCNEF/ FOBOIX 03,2) 2P0001X( 5,352) ,P00NPX(3,342)5 
P0N03xX03,3,2) ,F0004X(3,35,2) ,FOL 01X63, 2,2) ,P0I0CK( 3,272), 
PO103X€3,2),P0104K(3,2),P0105xX(05,2),P0107K(3,2),P0108Xl2,3,2), 
PO0109xX(2,3,2),P0119X(5,3,2) »PO301XC2,2e), 
POIN2X(212),P03503X (212) ,°0S0UX (2,2) ,P0305X(2,2,2),P0306K% (262), 
POBOTX (2,202) op PNZOBX(2 2542) pPOSNIOX(2,5,2)4P03235K( 3,202)» 
PO32UX (3,242) ,P9325X% (3,242) »PUS26X(3,2,4),P0307K( 3,244), 
P0328X(3,5,8),P0329X(3,5,4) -PONNIX(2) ,POUN2xK(S,2),P0403X(5,2), 
POUOUX(5¢5,2),RO00IX( 3,2) ,ROS0IX(2r2),P040PX(Sy2), 
ROS71X(322),R0572xK(2),80573X(2),ROSTUX(2),ROS7TSX(2), 

HO576X( 542) pROSTIX (52) pROSTBK (292) pROSTIX (242) pROBOIX, 
R0602X%(2)+R0603K(2),R0604K (5,2) -RO605X (552) ,RO7T00X(2 +2), 
VASULX( 2,2) pVOSUSXClp2e) pVOSS{K(S, 2) ,VOBOIKX( 3,2) pVOG0LX (54 5,2)» 
VO700X(2),V0(65,2) 

CLYMMON /PEV/ X26 32356) 

COMMON /SPDV/S xX2(1950) 


wAmM~—~f GUHA OWMeOwre 


COMMON /XINTEG/ TINC,DELTP ERROR, OTINER, TIUTER, TEND» CARD(B) » ALPHA 
COMMIN/DICT/PNAME (3236) »PELMNT (3236) ,SHT3,QX] pQX2y 

1 XxX3,FLOwAD(5,2),QR,NF, DA 

COMMON /SFILE/S TNAME,TCODE,DSC(7),8N,RN 

NIMENSTO Swe?) 

NIMENSINN NSC3),FILECI1) 

COMMIN JDICT2/S XNAMEF(1700),ELEMNT(1700) 

DIMENSION XCOEF(16A2),INDEX(4),VAL(4) 

DIMENSION TITLE (6), TITLEDN(6) 
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aay 


Cl CV EY CF CEC? 


1120 


1 


KF Cwnwn- & OMPNMTF MN OCWVS 


2 
3 


1 


} 


AITMENSTON TETECS eTITA2ca ,TIT SCS eTITAC3), TITS 33,0SCRPT(S) 
eTYPE (4) 

LOGICAL RFLG,OFLG,PFLG,TFLG,8FLG,IER 

EQUIVALENCE CF ILE C1), TNAME) 

EQUIVALENCE (CXCDEF(1)-C0010XC(1)) 

NAMELIST /XINIZ COO10X,CON2OK,CN030X,CI040K,C0050xX,C0060X,C0070X, 
CO211xX,CO2I2K,C021 3xX,CO02A14K,COLISX,CO2I6xX,COA2I17X,CO23iX, 
C9232K,CO0233K,CO284K,CO235X, C02 36x, COCSTXK,CO2KU2XK,CO24 Sx, 

CO24EKX ,CO251K,CN252X%-CO25 3X -COCS4HX,CO25SX,CO0256xX,C0257X, 
CO261%,C0262x,CO263X,CO0264X,C0265X,C0266X,C0267X,003507X, 
COS131X,CO0512X%,C0513X,69521K,CO0S 22K, CNS23K, C0601 X,CO603K,COb0KY, 
CO605X,COHD6xX,COHNTX,CO61NX,CO611xX,CO61AX,£E0S11xK,F05S1eXx, 
EOSL3xX,ENSI4K,E0SOIX,FOUNIX,FOLOIX,FOL02X,FO1N3K,FO010UX, 
FOLOSX,FOINOX,FOLO7TX,FOLOSX,FOLO9X,FOLIOX,FOLLIxX,F0201x, 
FO20PXK,FO203K,FO3OIX,FOS02XK,FO303X,FOS0EX,FO305K,F0306¥, 
FO3ZOTX,FOSO0RX,FOZOGX,FOSLOK,FOSLIX,FOR{AK,FOUOAK,FO4O3K,FOu0ux, 
FOGENIK,POCOLK,PANKEKr,PONDSK,POOOUX,FOIOIK,PNINPX,FPOLUSK, 
POYOUX,POTO5XK,POIOTX,PO10BK,P0109X,P0110X, 
POTNIX,POS0AEK,POSO3SX,PO3IUX,POS0SX,POSNGX,P0S07X,F0SURX, 
POBNIK,PO 323K, P9Z2UX, PD S2A5X, PO S2HK,PNZATK, PN Z2KK,PDO 329K, 
POU01x,POUCExX,PO4uU03xX,POu0UYX 

NAMELIST /XIN2/ RONOIK,RO3ZDIX,ROUNSX,ROSTIX,ROST2AX»ROST 3K, 
PASTUX,ROSTSX,ROSTOX,ROSTIX,RUSTBX,ROSTGX, 2060IX,ROS02X, 
RONBDO3ZX,ROGOUX,RNGO5X,ROTOOX,VOSHIX,VOSUSX,VOSSIX,VOE01X,VI60eX, 
VO7O00X,V9 


DATA TITIZIOHCINTROL PA, JOHRAMETERS 4404 / ; 
DATA TTTO/IOHINITIAL CO,IOHEFFICIENT ,LOXVALUES / f 
DATA TIT3/I0OHDEQ INTEGR,IOHATER VALUE,10HS , i 
DATA TITU/1OHMONIFIED CeLOHXDEFFICIENT, 104 VALJES / H 
NATA TITS/IQHRUN DESCRI,LOHPTION? 710% f¥ 

DSCEND/I0HEND / 
NDATA TYPE/IOHCONTROL es LOHXCOEF ri OHDEO ’ 

YOHMNNDIFY / 


MATA SwT2/1,1/,NDV/1950/ 

MATA (TITLECI).TE1,3)/9HCOMBAT Il, 9HARTILLERY, SHMODEL/ 
PRINT | 

FORMAT (fH=e) 

TERS, PALES 

CALL XMATE (DATE) 


READ CONTROL CARD 
REAN(CS, SOOITYP,RELG,OFLG,OFLG>TFLG,B8FLG,TT 


RFLG = READ CONTROL (TeINPUT NEW DATA SET) 
NFLG = OUTPUT CONTROL FL4G (TeDUTPUT ALL PARAMETERS 


DFLG = DEQ CONTROL FLAG(TeOUTPUT DEQ/STIME RECORD) 
TFLG =» INPUT TARLES CIANTROL FLAG (Te TO DISPLAY) 
RFELG - REGIN FROM ALD TAPE FLAG(FeFOR A NEW GAME) 


TT © START TIME OF GAME 

TE O0CYR JES pIYPEC IOS GO TD L520 

WRITE (6,300) TYP,RFEFLG,DFLG,DFLG,TFLG,BFLG,TT,TITLE \ 
WRETE €Gp S07) FYPECLE) : 
fER=, TRUE, 
CALL LCHPTR (TITLE,1H ,10,DATE, 1,60) 

IF(DFLG) SwT3s1 

CALL REMARK (104 ) 

CALL REMARK(JOMRLUN TITLES) 


res 


aD 


Cc 


1150 


1190 


1200 


1205 


1206 


1297 


1210 


1215 


CALL REMARK (TITLE) 
CALL REMARK(104 ) 

“tsa 

CALL PORPTR CLE TTT Lp Sos OA TE aN 255) 
WRITE (6,201) RFLGPOFLGsDFLG,TFLG,BFLG 
TECTURCEE cO.0) TrSheo 

ERROR CHECK FOR CORRECT DICTIINARY TAPE 
REAN(T) MODFL 

IF (C“MOMNEL EQ, 9HARTILLERY) GT TO 1150 
WRITE (6,150) MONFL 

ST Pe 

REAN(7) NXCOEF,NV 

TECBFLG) GO TO 1205 

TF (RFLG) GO TO 1200 


NORMAL RUN @# READ RASE CASE FROM TAPE j 


READC 1) MODEL 

IF (MODEL,E9, QOHARTILLERY) GO TO 1190 

WRITE (6,150) “OMEL 

STNPP 

READ (1) TITLED VATED, CXCOEF (I) -TE1eNXCOEF) 
WRITE (6-202) TITLEN,DATEQ 

GQ TO je210 


CREATION RUN © READ NEW RASE CASE VALUES FROM CARDS 


CONTINUE 

REAN(S,XINI) 

REAN(S,xIN2) 

WRITE(2) JOHARTILLERY 

WRITE (2) TITLE,DATE, (XENEF (I), 1=51,NXCOEF) 
GN TO 4210 


RESTART MODEL FROM AN OUTPUT TAPE 


READ(G) MODEL 

TE (MODEL EG, 9HARTILLERY) GO TO 1206 

wRITE (6,150) MODEL 

STP?! 

REAN(G) (NSCRPT(kK),K=1,8) 

IFC OSCRPT(C1),NE,OSCEND) GO TO 1206 

REAN( UY) TITLED,DATEOD,DLIM 

RESTART » READ TAPE UNTIL RESTART TIME FOUND 
REANC AS TIME, CXCNEF CTY, ISI ,NXCOEPS,CXICI)-LSI NVI -CXSCII -TSipNDOV)» 
} SwT2(1),SwT2(2) 

FRCTIME, LT. TT) GS Ta e207 

WRITE (6,202) TITLED,DATED 

CONTINUE 

TF INITIAL COEFFICENTS QUTPUT NESTRED THEN 
TFC NOT, ,SIFLG) GO TO 1215 

NLst 

CALL LCHPTR (14 ,TIT2,30,DATE,NL,*55) 
NTIMESSO 

NCARDSS((NXCOEF@J)/7) 41 

J2=0 

PT 1260 Tet,*CARNS 


Si A oo WN a Oe om 


ann 


1220 


1260 


1265 


1270 
1289 


1300 


1310 
1345 


1320 


Jvssfeest 

JePsJ2+7 

IF (CI,ZEQ,NCARDS) J2=NXCOEF 
NTIMESSNTIMES#41 

TF CNTIMES, LES?) GH TO feeo 

NTIMES=1 

IFC, NOT ,OFLG) GN TO $220 

NL=0 

CALE LCHPTR Che 2 Tite So (DATE Ney eS >) 
PRINT OUT INITIAL COEFFICENTS 

READ (7) (XNAME(J),J2J1,J32),(CELEMNT(J),JeJ1,J2) 
Le -(, NOTOFEG) GO TO 1266 

WRITE €6,205) Cededt,Je) 

WRITE (6,204) (XNAME(J),JeJN1,J2) 
WRITE (C6222 0) CEEEMNT CJ) Jed f e322) 
WRITE (6,205) CXECOER C3) pledil ested 
kK21[NOe] 

WRITF (6,206) K,(M,4511,71,19) 
CONTINUE 

NCARDSS((NVESI/S7) 44 

J2=0 

DO 1265 JT=1,NCARDS 

JisJee} 

Je=aIee7 

IFCI,EQ,SCARDS) J2snv 

REAN (7) (CPNAMECS), JEed1,J2),CPELYNTCUI-JeJ1,Je) 


READ RUN DESCRIPTION 
AND WRITE IT TO TAPE AND PRINTER 


NL =o 

WRITE (3) LOHARTILLERY 

CALL LCRHPTR(IH ,TITS,30,DATE,NL»=@5S) 
READ(S,402) OSCRPT 

TF CEQF(5)) 1300,1290 

IF (DSCRPT(1), £0, SHDEQ) GI TO 1310 
*RTITE (6,403) DSCRPT 

WRITE( 3) (OSCRPT(I),7T51,8) 

60 TQ 1280 

wRITE(6,U04) 

wRITE (6,301) TYPE(3) 

IFR=,TRUE, 

GO TO 30N0 


ALL OF THE DESCRIPTIONS HAVE BEEN READ IN AND THE DEQ CARD FOUND 


WRITE (3) DSCEND, (NSCRPT (I), 352058) 

LEC SNOT STERG? Gh FE £355 

REAR? J UR YGE 

EPCEUR Cry) Lasse seo 

IFC TNAME ER, SHSPACE) GN TO 4325 

TF CCTNAME ,NE,GHTITLE1) AND, CTNAME NE, GHTITLEG)) GN TN 1330 
NLen 

TECTNAME EQ OMTITLES) CALL LEOHPTRCIH ,TIT2s 30,08TE,NL 9 #95) 
ITEC TNAME ,EQ,OHTITLFE 1) wRITECH,504) 

WRITE (6,507) (OSC(T),125,7) 

GO 1G) 1555 
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1325 


v5.30 


rs) 


W555 


ri 


CE OV. CW 69 FO 


YPepoeel) (Ne .IH =) WRITE(6,505) 

WRITE (6,506) (DSCCII,3=1427) 

TFCNSE (1!) NE,Y4 ) WRITE (6,505) 

60 Te YSE5 

NFRSRN 

NF RERN 

RANSXCITEF (NFR) 

RN=E=XCNEF (NERY 

DEECNDE (6.500, TCODE) NSCI)eNSC2),NS(3) 

PEs WSSt Pah. 5 

FRCONS CEG. CO) SOR SONS CIS bt geeky) GO TO 135 
BNS1,0=RN 

RNS}, 0eRN 

CONTINUE 

WRITE (6,502) TNAME,(NS(T),T=1,3),COSC(I),ITE1,7),/BN,NFB,RN,NFR 
Bi Rel WP sS: 

CONTINUE 


DECONF THE INTEGRATION PARAMETERS 


NECOME (80,105,0SECRPT(4)) TYP, TING, DELTAERROR,OTINERs TEND, ALPHA 
PENG = MAXIMUM INTEGRATION INTERVAL ALLOWED 
DELT = INJTIAL INTERVAL DT 
ERROR © ERRIR PARAMETER SPECIFICATION FOR DER 
DIJNER = DATA POINT INTERVAL 
TEND = END NF INTEGRATIIN TIME 
ALPHA = SCALE FACTOR FOR ACQUISITION €8,5 
NL=0 
CALL LORPTR (C14 aTITS, 30, D4TE NL -@55) 
WRITE (6,°07) TINCPDELTAZERRIR,DTINER,TT,TEND, ALPHA 


READ IN THE MODIFY CARDS FOR THIS RUN 


NL sO 

TOUTERSTEND 

REAN(S,104) CARN 

FFCEOR CS) ) 250001 7010 

TF CCARD(1),E0,TYPE(4)) GO TO 1800 

WRITE (6,302) CARD 

WRITE (6,301) TYPECU) 

TER=,TRUE, 

G0 Te 2650 

NECODOF THE MODIFY CARPAND CHECK FOR TT> GAME START TIME 

DECOME (70,401,CARD(2)) TIME, CINDEXCI),VAL(CI),J21,4) 
TIME = TIME AT whICH CHANGE IS TO TAKE PLACE 
INDEX = INDEX OF PARAMETER BEING MODIFIED 
VAL = NEw PARAMFTER VALLE 

TFCTIME, 61,17) GO TO 2000 

DM $860 Te}1,4 

Te CINDE SEIT SEE, O) GO TO 1660 


MODIFY THE VALUE IN THE COMMON AREA USING THE INDEX NUMBER 


KSINME X(T) 

XEDEF (CKIJSVALET) 

IF(K,GT,3552) x1 (Ke15S52)SVAL (J) 

CALL LCHPTR (1H ,TITU,30,0ATE,NL,©55) 


180 


f 


aqan 


i) 


1860 


200 


2500 
s000 


100 
103 
104 
150 


201 


ene 


203 
204 
205 
2n6 
207 


28 
209 
210 
300 
301 


302 
adj 
ade 
403 
und 
500 
Sn2 
594 
545 
S96 
S07 


IF(NL,EO,2) *RITEC6,208) TT 

WRITE (64209) K,¥NAME(K),ELE“NT(K),VAL(I) 
CONTINUE 

RFAD (5,104) CARD 

TF (CEQF(S)) 2500,1700 

IFCTIME,GT,TEND) TIMESTEND 

TOUTERSTIME 

69 TO 3060 

TOUTERSETEND 

CONTINUE 

IF CIER) STOPS 

KRITECS) TITLE, NATE,TINC -DFLT,ERROR,OTINER, TOUTER, TT, TEND, ALPHA 
IFC,NOT,BFLG) TTheetT 


REGIN THE SIMULATION 

CALL ARTMONLIDATE, INDEX, VAL, NXCOEF,NV,TT,SWT2,NDV) 
FORMAT(A10,5L1,F5,0,6410) 

FORMAT(A10,0F 10,0) 


FIURMAT (RA1O) 
FORMAT(//10H ERROR wax, *MODEL TYPE NOT RECOGNIZED: «,410, 


Je EXPECTED TYPE » ARTILLERY) 


FOURMAT(C/S//10X,*READ FLAG F epLB///10X,eDUTPUT FLAG = *,L3///10X, 
J*#TIME RECORD FLAG = &,L3///10K,«INOUT TABLES FLAG = «,L3///,30X, 
1WGAME RESTART FLAG = *,L 3777) 

FORMAT (///10X,#INPUT DATA SET TITLE & #,6A10,///10X,* INPUT DATA 
TED DATE (= 2 pAt00 

FORMAT (/39X%,7(17,8X)) 

FORMAT (22X,7(A10,5X)) 

FORMAT ($HO,17XK,7(E13,6,2X)) 

FORMAT ( SX,eXCNEFe,15,7(5K%,10CL Hed, /6X, 703 3X eT2)) 

FORMAT (///19OXK,*TINC S w,FIO Ss //10X,"DELT = %,FI0,S,//10X>, 

{ kERROR = *,F10,5,//10X%,«DTINER =e,F10.5,//10X, 


* *eTSTART =*#,FIO,5//10X, 
2 aTEND 5S FIO ,S//10X,*AL PHA = #,F 10,5) 


FORMAT (//% PARAMETERS MODIFIED AT TIME = #,F10,S//) 
FORMATC(LOX,*&XCOEF(e,IG,%) S #,2410,*% = *£15,6) 

FORMAY (20X-¢7(410,5X)) 

FORMAT(15X,410,5L1,3X,F5,0,8X%,6A10) 

FORMAT(//1XpSHewekwe,e ABOVE CARD MISPLACED OR UNIDENTIFIABLE®, 
j SX,eEXPECTED CARD TYPE #*,410) 

FORMAT (//5xX,8A4)0) 

FURMAT (FI0,0,4(75,F10,0)) 

FORMAT(RAI0) 

FORMAT(P{X,8A10) 

FORMAT({HJ//3X%,)5H*e FND TF FILE #) 

FORMAT(3I2) 

FORMAT(1X,A6, 373, 3%, 7A10,2X,FI2, dew (a, JU,a)Ie,FI2, dU, x(e,JTU,e)e) 
FOIRMAT({X/95X%,#BLUE®, 1 UX, #RED®) 

FORMAT({NOX,x#] a) 

FORMAT({9OX,74A10,290x%,e]&) 
EQRMATOCIXZSUK A TALOSIX CL SCIOM, cyeccaseed? 

END 


CREP OV OVA CASA AMA Ma MAH 


SIIRRNHTINE AIRMODL (DATES INDEX, VAL, YXC,NV,TIME,NDV) 

ATRMONOL IS THE “ONELING RIUTINE FOR THE ATR VERSION OF THE 
COMBAT II SYSTEM, IT IS CALLED BY AIRINPT,aHTICH SETS UP THE 
INTTIAL STATES, FLOW PARAMETERS, AND COEFFICIENTS QF THE 
NFEENDENCTES AMONG THE VARTABLES, THE SIMULATION IS A DOUBLE LODP 
THE OUTER LOOP weITES THE VALUES OF ALL QUANTITY ANN FLOW 
VASTABLES TN TAPE AT USEReSPECIFIED TIME INTERVALS, THE INNER 
LOOP ITS TRE INTEGRATION LOWe: IT TIMESSTEPS THROUGH THE INTERVAL, 
CALLING INTEG TO INTEGRATE A SYSTEM OF ORDINARY DIFFERENTIAL 
FQUATIONS (THE FLOWS AND ATTRITION RATES), THEN SETTING THE 
VALUES OF ALL THE QUENTITY VARIABLES DEPENDENT ON THE INTEGRATED 
VARTASLES, THE INNER LOOP JUMPS OUT TD THE SUTTER LONP EACH TIME 
ONE OF THE wRITE TIMF INTERVALS IS REACHED, 

THERE ARE STX MAJOR SETS TF EQUATIONS] THISE DEALING wITH 
ATReTNmATR COMBAT, GROUND OFFENST AGAINST AIR ATTACK, “MISSILE 
AND AIRCRAFT ATTACKS ON GROUND TARGETS, GROUNTeTI@GRIUIND INTER® 
ACTIONS, FLUWS AND ATTRITIONS, AND THE KINEMATICS DF THE “OVE 
MENTS OF FORCES, FROATS, A“D SUPPLIES, 


COMMON /SXCOEF/ CO010x(2),C°00290X(2),00030x(2),069040x(2),C0050x(2, 
12),€9211X(3,2) p,CO212K(372) 56023 3X03,2),C0214X (3,2) ,C0215xX (3,202), 
ebd!e si ¥ Cape) se0) exiles 2 2G 02 SSX Cone le COS SAX CA, cheCOl sok Coper2e) » 
3CN242x(2),C0246 83x (2), CO2UUXK (2) ,CN245xX(2),069251K (2) ,C0252xK(2),09253x 
&(2),C90254x(2),C69255X(2,2),E9261x(2),CO262K(2),C0263xK(P)-CO264x(2), 
S$60265xX(2,2)-00807K(2,2,2) -COU06X (2) pCO407K(2).-C0511x(2),COS12x (2,2 
6),090513xX02,2),C0521X(2) ,COS22ex(2),C0551xX(2),00552X(2),C0601xX,6C9603 
7X(03,2),C0694X(2),C0695K(2),C0606X(2) ,C90607xK(2) -COBI0X(2),C9611xX%(2) 
*,CC613xX(2),C0614K(2),F0511xX(2),E90512X(3,2,2), EF 
FOS2LXC2V,FO00IX( 3,2), F0CIOIX (3023 ,F0102K(2) ,FOL03K(2),FO1N4K(3,2), 
REOUOSKX( 3,2 -FOLOHX( 3,2) so FOLOTXKC 3,2, 2) se FOL0BX(3,2,2),F 9199XK(2), 
SFOLCO1X( 3, 3,2) 6F 9202K(3, 35,2) ,F9301X 
* C2r2),FO3SD2K (2+ So 2d ,FOSO EXC], $p2) HF OS0UX (242) ,F9305X (2,2) ,F 0306 
1 XC2p2 p20) 0 FOS07TX( 2,2) + FO30BX( 2,202) ,FOU0IX( 3,2), 

PFOU02X (3,2) ,F0601X(3,2)+P9001X(3, 3,2) ,P0002K(3,3,2),P09003X(3,3,2), 
BPOVOEK (3, 3,2) ePOIOIX( B,er2) pPOLO02X( 35,272) POLO 3X(3,2),FP9104KX(3,2), 
4POYOSX(3,2)4 PNI07XK( 3,2) ,P010BX (24 3r2) ,P01 09K (2, 5,2) ,P0301XK(2,2),° 
50302x%02,2)+P0303xX (2,2) ,P0304UX (2,2) ,P030SK(2r2p2),P0306X( 2,2) - P0307 
6X62,2,2),P05235%63,2,2) pPO3CUX( 3,202) pPNS25XK (3,202) ,PNSCOX( 3,24), 
7 PONS27K (3,204) POANIK(2),PN4UN2K(2),POU0SX(2),P0UNUX(2),P04U0SxK (2A) 

COMMON /SXCOEF/S RO001XK(2,3,2)/R0301K(2,2),RO40IX(2),ROUNeXK(2), 
LROSTALXC 2, S02) pPROSTAX( 2,202) PRUSTUX (2) pROSTSX(2) pROSTOX(2) ,ROST7X( 
2 2d pROSTBEXK62,2),ROSTIX(222) pROBDIXKROBD2X (2) -ROGD3ZK(2),R9604XK(2) 
3,RO0605K(2),R0700K (2,2), V9S4IX(2,2),VOS5USX(2,2),V0551XK(2), 

a V0552xX02),V0601X03,2),49( 38,2) 

COMMON SPV/ V(>3B,2)-AV(1N eee VAC7TC2]) pCOO01P( 3, 3,2) -CO002P(3,3,2), 
J CON0SP(242),6C0601P (3,2) ,90601P (3,2), 

1 90602°(3,2),00603P(3,2),9N604P(3,2), 
2F0101F(3,3,2),F9§03P(3,35,2),4 
‘ FOLOSP(3, 3,2) ,FO1NAP (3,2) -FO107TP( 3,2) ,FOINBP( 3,2) -FO109P (3,2, 
22d eFOIINE(S,2,2), FO SNIP (2,342) oF 0302P (2,342) ,F03 
2 OSPCAr2) FF OSNUP (2,2) ,FOSNSP(2,2,2) pFOSNOP (2,2) sFOSNTP (22,2). 

* F0321P(2,3,2),F0302P(2,3,2),F0323P(3,2,2), 

3 POL1O01P (35 342V,P91N2963, 3p2) ,P0103P( 3, 3,2) ,P O01 0UP( 3,372), P0195 PC 
4 572) 6P9106P (3,2) ,P019RP(3,2),P0110P(3,2,2) 

#pPNZOIP C2], $462) ,P03502P (24 342) ,P0303P (2,2) ,PN SOUP (2,2) ,FN3NSP (2,222) 
* 0P 04022 (73,2),P04035P( 3,2) ,P040UP (3,2) ,P0uUNSP( $3.2) 
5 pVOZOIP (2,2) ,VOUOIP (3,2) ,VOU02P( $,2) ,VOSUIP (2,2) ,V9SUPP( 2,2), 
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4 VOSUSP( 2,2), V9OCIP( 38,2) 

COMMON SPOV/ DOV038,2),94V(10,2),490001P(3,2),4099929(3,2), 
140191908, 3,2),40102P(3, 3,2) ,A9103P(5,2),491049(3,2),40195P( 3,2), 
£0106P(2,3,2),4901079(2,3,2) ,A0301P (2, 3,2) ,40302P (2, 5427) ,40503P ( 
292) p KO SOUP (2,2) ,A0S05SP(2, 222), AN S05P (2, 2),AD3NTP (2), 3,2),4030 
BPO?P, 5,2), ADSP1P (3, 3,2) ,A0822P6 3, 5,2) ,A0323P(3,2),40304P (3,2), 
40325°(3,2),40376F (34242), A0S27P63,35,2),A0328P( $,3,2),h40401P ( 
3,2),AN602P(3,2),40403F(3,2),40404P(3,2)3,40405P(3,2),40595P(3,2 
7),40511P03,2),A40512P(3,2),A051 3P (2, 5,2), A0814P(3,7),40515P(2,2),49 
BSIOP (2,2) ,4053 7H 02, 3,2),A0521P 63,2) ,A05S22P (3,2) ADS SIP (CC), 495 32P (2 
9),AN0S33P(2),40549P (2), AD54IP (2,2) pADSUAP( 2,2), 405438 (2,23,40544P(2 
*,2),40551P03,2),40552P (3,2) ,40561P (2) ,40562P(2),49565F (2), 40564P (2 
1),E90S11P62.2).ENS1AP(2,2),E0521P(3,2),£0551P(3,2),695529(3,23,2000 
21°(3,2,2),F0902P(3,2),R0003P (3,2) -RO004GF(3,2),RO005P(2),R000HP (3 
8,2, 2 F RO9O0TP(63,2,2)-RO3S0IP (2,362) ,ROSN2P (2, 3,2) eRUSNSP(2,2),20304P 
4(2,2),RO305P(2,2,2),ROS06P(2,2),R0307TP(2,2,2) pRO3S21P (3, 542) 4 R0 8228 
5(3,3,2),80325P(3,2),80324P(3,2),R0325P (3,2) eR0526P(3,2,2),2903278(3 
607267) eR0401P063,2),80402P (3,29, R0K0 $P (3,2) ,RO40UP (3,23 ,R05U1P (2,2), 
TROSTIP (2, 3,2) pPOST2P (2,242) pROSTUP (2) ,ROSTSP( 2) pROSTHP(2),R0577FP (2 
BY,ROSTBP(2,2),R0579P(2,2),R06019(3,2) ,R0602P (3,2) ,RNENSP 63,2), R080 
94P (3,2) 

CO™MON SXINTEGS TIMC,DPELT,ERROR,DTINER, TIUTER, TEND, CARD(8), ALPHA 

COMMON /DICT/SPNAME (1275) sPELMNT (1275) ,SWT3,GX1,G6K2 

CIMMON/SDICT2A/S XNAME(792),ELEMNT (792) 

YIMENSTON JNDEX (43, VAL(4),PV61) 

DIMENSION XCUEF CLs POVCI) TITAS) 

DIMENSION PISGe2(4,2) 

EQUIVALENCE CXCNEF (1) COO1OX(1)),CPOVC1),DVCL,1Id- CPOVCSS, VEI,I3)) 

INTEGER PAS,PFPAU,PAS,PGIF,PG2F,PGIR,PG2R,PO4,PL,P8,PG5F.PGHF ,PG5R, PG 
16R,PXF,PS,PS# 

LOGICAL MODFLG 

DATA PGYF/SO/,PGIR/SUS,PLSIG/, PG2F/6/,PG2R/1L OS sPYMSIL0/,PS/1 3S ,P B/S, 
{ PSB/IS7,PAISIL TS, PAUS2AB/yPASS25/,PGSFS/27/,PGSR/ BIS, PGHE/ 3S, 

2 PLER/3S/,PKES3S/ 


TNE wy 


THE VARIAKLES SET IN THE ABDVE DATA STATEMENT ARE USED TO DERIVE THE 
INDICFS IN THE ARRAYS V AND VO FOR THE DIFFERENT ENTITIES KFPT TRACK 
NF BY COMBATeIT, FOR EXAMPLE, PAJe(234¢M)e2 IS THE INDEX FOR THE 
ATRCORAFT TF TYPE J AT RASE “, AND V(PAJ4#( 234M) 02,7) IS THE NUMRER OF 
ATRCRAFT OF TYPE J AT BASE “ FAR SIDE I, THE MEANINGS OF THE OTHER 
INDICES ARE AS FOLLOWS 

PGIF¢] = GROUND FORCES IN FRONT J 


PGR e GROUAN FORCES IN THE REAR 

Plem » LAUNCHERS FOR MISSILES OF TYPE 4 
PGF el] = SUPPLIES IN FRONT J 

PGR = SUPPLIFS IN THE REAR 

DMem * MISSILES OF FYPE ™ 

PS e NUCLE4P STORAGE SITES 

PRK » ATRBASES OF TYPE K 

PSReK © RFPAJTR STATUS AT ATR BASE 

PhuUs” © CONVENTIONAL AIRCRAFT riaus AT BASE 4 
PASe™ = NUCLEAR AIRCRAFT LYADS AT BASE 

PXF eT = COORDINATE OF THE FEBA IN FRONT J 
PGSF +e] = NUMBER ()F ROUNDS FOR G3'S IN FRIAT Y 


CWA CWO TM CHOI AAAO OH MA Mm 


DATA JAS3B/,TFE/S3/,LL/2/ —54R/2/ 
THE VAPTABLES SET IN THE ABOVE SATA STATEMENT ARE TRE LIMITS OF 1D 


m 
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LOOPS, AND HAVE THE FLLOwING MEANINGS 
Ja ~ NUMBER OF ATRCRAFT TYPES 
TF e NUMBER TF FRONTS 

Ek e NUMBER OF MISSILE TYPES 

MR = NUMBER OF ATR RASE TYPES 


THE FOLLOWING VARIABLES ALS) DCCUR IN THIS SUBROUTINE 
SwTe(I) e REAL FLAG CONTAINING THE vaLUE 1 OR 2, 
SUT SEE JS4 INDICATES THAT SIGE 7 38 FLYING 
NUCLEAR WEAPONRY 


Suts = LOGICAL FLAG CAUSES INTEGRATION SUMMARY TO 
RE PRINTED 

NOE U e COUNTER FOR THE NUMBER OF INTEGRATION STEPS 
PERFORMED SINCE THE LAST TIME HISTORY DQuUTPUT 

KK J e VALIF OF THE CPU CLOCK 

ALPHA - OVERALL TARGET ACQUISITION ADJUSTMENT FACTOR 

18,78 » INTEGER FLAG HOLDING EITHER 1 OR 2, USED TO 
DEF INF WHICH PLAYER'S VALUES ARE REING USED, 
1B =3-e TR 

TOUT » TIME OF THE NEXT ENTRY TD THE TIME HISTORY FILE 

TOUTER = TIME OF THE NEXT USER “ODIFICATIUN OF THE DATA 
RASE 

NTINER * TIME STEP TN THE NEXT TOUT 

TEND = MODFL RUN END TIME 


OHM OAGOAAA MOANA AAA ARAM OnwmnAo 


DATA NIRDER/S7TIBR/S,NCOUMNDS 3B/ 
DATA TYPE /S{OHMONIFY / 
NATA TIT4/IOHMODIFIED Ce1LOHOEFFICIENT,10% VaLJES / 


PRINT 4 

1 FORMAT (LHe) ] 
LF CTIME,GT.0 20) GO Fa 1260 | 
TIMESARBS(TIME) | 

lf INTEFALIZE STATE VEETOR 
a PEO Pet,.2 ] 
O01 1990 Jet,XCOMnO 
Ved.ts 2 VOCS, 35 
1109 CONTINUE 


IRs! 
I1B=3eTR 
C SETUP NF NA POOL 


AVCPGIF es, ITRVEVCPGIF41,7RIeCONL10K(18) 
AVCPGIFe2, TR) sv(PGYFe2, TR) #CON1Oxe( rs) 
AV(PGIF43,TRIVSV(PGIF 43,72) eC ON10X(T8) 
AV(PG2F 41,78) sv(PG2F 44,78) *C0020K(18) 
AV(PRAF a2, TE)SV(PGPFeP, IR) eC O020xX( 1A) 
AV( PEPE 43,TR)sV(PGCF 43,12) *C0020xX(IB) 
AV(PGIR, TRISV(PGIR, IR) *#CO030X( 1B) 
AV(PG2R,TRIEV(PGOR, TR) eCNNUOX( 13) 
AV(CPL43, TR) Sv(PLe1,1R)*CO050X(1,18) 
bv(PL 42, TR)EVOPLe2, TRI *eC9N50xK(2,18) 
1200 CONTINUE 
O09 1250 [ei,NDv 
1°50 POV(I)2S0,09 
1269 CONTINUE 
C wRITE DUT THE INITIAL DATA PAINT TJ THE TDYTPUT TAPE 
WRITE (3) TIMED CXCNEF(TI AISI ONXCI,COVET)»TSioNVI es (POV(T I -TSi,N0vV) 


1 8h 


> CV. 


io ) 


Oo 


rm 


3000 


4noo0 


! 


meTIME 
TOUTSNTINER 
CONTINUE 


OUTER LONP PROCESSING BEGINS 


TNTEGRATION LOZP 

TLIM = AMINICTINC,DTINER/S2,0) 
NT | DELT 

JUMP s a] 

CONTINUE 


INNER LOOP PROCESSING REGINS 


TF CCVCPGIF SL, LIVI PGIF el, 3 DeV(PGIFO3,1),LE,6,0) OR, (VIPGIF4¢1,2)+¢ 
ViEPGiFte ce, tVCPGIR€See) LE eo.00) STOPS 

NTINER2SAMINICTOUTER, TOUT ee TIME 

IF CDTINERA,LT,DELT) NTINER2SDELT 

CALL SECOND (XKJ) 

TE (SHT3,EQ,1) wRITE(6,1945) TIME, TIVTER, TOUT, xXKJ,NDEQ 

TIMESTIME*DTINER?P 


$945 FORMAT (6OX,5SHTIMES,FR,O,SX,12HNEXT CHANGEE,FB,2,5X, 


4400 


4nse 


4o5i 


5005 


5015 


j 


2 


{ 


! 


§ 


1 


LOHNEXT DATA POINTS,FR, 2/11X,10HCPU TOTALS,F8,4,5X, 

PeOHDFOS IN LAST INTERVALS,IS/) : 
NNEQ=0 . 
COINTINUE 
NDEQSNDE Qe] 

EMAX = FRROR 
EMIN = EMSX/100, 
CONV = EMIN/100, 


PERFORM THE INTEGRATION 


CALL INTEGCOV,H, TIME, TLIMs Ve, EMAX,EMIN,NORDER,DT,CONV, JUMP) 

RESTRICT COMMODITIES TO NONeNEGATIVE VALUES 

bn SO1S Jive 

IF (VOC PGIF S41, JIFVOCPGIF S22, J) HVOCOGIF +3, JI FVOCPGIR-JIFROSTUX(JI,LT, 
201) VOIPGIF 41, J)SVCPGIFt2,J) av(PGIF+3,J)=ZVv(PG1IR,J)=0,0 

TF CVO(PGOF +1, JI FVOCPG2F HZ, JV FVOC PGF 4 3, JI FVO(PGAR, J) FROS7TSX(JI,LT, 
001) VOPGAF43,J)SVv(PG2F 42, J) sv(OGeF +3, JISV(PG2R,J)I=E0,0 

IF CVOCOEGSFel, JV4evVOCPGSFe2, JIFVOCPGSFe 3, J evVOlCOGSR, J) +ROSTOX(J) LT, 
291) VEPGSFeft, JIEVCPGSFe2, J) SV(PGSF +3, J) =VCPG5R,J)=0,0 

TF CVOCPGGF SL ep JI OEVOCPGEF E22, JIHVOCPGHFSe 3, JI4VA(FGOR,JIFROSTIKCII,LT, 
001) VOPGOF4e1,JIZEVEIPGHF 42, TJ) zev(OGOF eS, J) ZV (PG6R,JI=E0,9 

90 4051 Mzi,e2 

TF (VO(PMOM, JI FROSTAX(M, J) LT e,01) VEPMOM,JIZ0,0 

IF (VOCPL4M, 53) ¢R0579X(M,J).LT,.01) VCPL#M,J)=50,0 

NO 4nS2 21,3 

IF (VO(PAJH242eT eM, JIFROSTIX(Me Tp J) gh Teg 1) VEPAJaPeret ent, J) E0,0 

CONTINUE 

IF(VOCPAUSM, JIFRASTAX(Mp 2, T) gL Tee Ol) VE P AUS, J)=0,0 

TFC VOCPASHM, JIFROS7TAX(MN Le J eb Tee Ol) VEPASHM, J)I=50,0 

CONTINUE 

DO SONOS 121,10 

IFCAV(T, J) gL7,0,.%) AVET,I1=0,0 

990 5045 Is1,35 

FECVELeliebralels Veladved, 6 
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IFC JUMP) 6©900,5000,7090 
S000 CONTINUE 
€ CALCULATE COEFFICIENTS AND KINEMATIC EQUATIONS 
NO 50490 TB=1,2 
TR=3eT8 
Ce kee RRR ee OR RO KE RRR AKER KH 


FIRST EQUATIUN SET 


AA(I) VERSUS AAJ) 


SB(M) MOVEMENT 
EQN (fe) © SBCM) KINEMATIC 
DN S017 M=1,MB 
DV(PSReM,ITAVEDIVIDE CC EROZOTE(IMA~TRIFROZOTPH (AM, IR) *COSO7TX(ML1,1R 
YEROZATP (AL M,TRY#SQRT (1, MP O105SP(1,78))eSQRTC1,9eP0109X(M,$,18) 
YeCOZOTX(4,S,IRI& ROS2A7THE(2],%,TR)*&SQRT(1,02P0105P (2,78) )* SORT ( 
1,0ePOJ09OX(M,2, TRI R(CFOS23P(2,1,ITR)eCO3S07TX(M,3,IRI+FUS23P(2re, 
TRY@COSO7TX(M,2,TR) 1% RNZ2TE( 3,4, TR) eSIRT(1 , 09 P0105P (3,18) )* 
SORTC1,O0fFPN1ICOX(M, 3,F8) ECF OZ25PC3,1,ITR)#COBNTX(M,1,1&) + 
FOSZ2SP(3,2,1TRIeCOB07Te OM, 2,1 R))),VCP 344,718) )eROTOOX(M,IB)*® 
SwITCH(V(PSHe™, IR) ) 
C EQN (fejyA) @ DEGRADATION FACTOR AT B(™) 
COON SP (M,TK)SEXP( eV (PSKe4%,18)) 
Soi? CONTINVUE 
C EQN (1210) © LAUNCH A] 
99 5020 “si,MR 
RONNGP(1,4,ITBIEROOOLX(M, YS ,TAV#VI(PAJEM, TR) e#CONO3P(M, IRI eS¥ITCH( 
1 V(PAU4eM,]7)) 
ROON7P(1,",18)=0,0 
C EQN (1210) #» LAUNCH A2 AND AB 
M0 §020 Js2,JA 
JMs2e JeMew2 
QDERNOOLX(M,J,TBI*V(PATOIM,IB)*C0003P (4,18) 
PAONTPCIAM,TSISFOOOUX( J, IB) #9e (1, 9SEXP(e,1SeV(PASOM,I8))) 
ROOOOP(ITs,Mp,IBISEA“INI (QN#ROONTE(I,M, IB), 9eSWITCH(V(PAUeM,7TB))) 
S020 CONTINUE 
0 5030 Ts1i,JA 
99 50205 “=1,B8 
C FAN (1824) © ACT) LAUNCH RATE 
RODOIP CT pMeTRYSROONGP(ITsM,IBI+RIOO07TP(I,4,78) 
5025 CONTINUE 
C EQN (13) = ACI)G LAUNCH RATE 
ROOOSP(IT,-IBISFOOOLX(1T, IB) *(ROOO1P(T,1,18)+¢RO00IP(1,2,18)) 
C EQN (18286) @ ACIT)A LAUNCH RATE 
RNONAP(I,IBJERONOOIP(IT,1+,IRIFRO001P(1,2,TRIMPRONOZP(I,.IB) 
PhO -=927 MS1,“B 
C (1838) © ACTIG FROM ACM) 
FOB2Z2P(M,T»,IRBIEFONOIX(T pe TRIEDIVIDE (ROOOIP (TM, IB)»-ROONSP(1,I4)) 
C EQN (1e3A) © ACT) A FROM BRCM) 
FOSCIPCM,T,-IB) SCI OMFONOIX(T, IB) I*DIVIDECROOOIPCILMLIR) 
1 RoNN2P(1,7B)) 
S027 CONTINUE 
C FAN (1=3C) @ ACJIG CARRVING A“) 
FOSCSP(CIT JS ¢,IBIENIVIDECROONTE(LT,1,T8)+RO0OTP(T,2,1B),R00N3P (1,18) ) 
FO3Z23P(T,2-,1B)=1,09F Ose 3P(1,1-18) 
5030 CONTINUE 
C EAN (184) @» TOTAL LALINCH RATE FOR ALL AIRCRAFT 


€ 
C 
C 
C 
C 
€c 


NOME wN = 
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RONOSP(TRIEROCONIP({,{,T2IFROON{P (2,1, TR)+RO001P(3,1,IA)¢ 
{ ROOGOIE CY .2, TRI*ROONIP(]),2,TRIFRN001P(3,2,1B) 
Souod CUNTINUE 
P10 $129 T81,2 
TRese]R 
NN S100 Jsi,JA 
DM 5060 T=1,JA 
C EQN (1eS) SINGLE SHOT MISS PROARABILITY FOR AA()) VS, AACJ) 
COOOYP CT, J-I8) = 1,09POOOIX(T Js IRI*PO00EX(T,J,IR) 
S060 CONTINUE 
C EQN ($6) © DIRECT ATTRITION FIR AA VS, AACS) 
ANNQIP(S,I8) = RONDAP(CJsTR)# (1, 09CON0IP (1, 5,13) **DIVIDE(RON0PP (5,7 


§ RYARODOSPCTARIIeCOO0IP (2, J»-IR) e*eDIVIDE CROODAP(P,TR), | 
$ RODOSPCIB)I*COOOIP( 3,3, IB) «*DIVIDE (RON02P(3,IR),890 | 
$ OSP(1R8))) | 


C 
C AA(J) vS, AGCJ) 
DO SORO Tei,JA 
G EQN CYe7) » SINGLE SHOT MESS PROBARILITY FOR AACT) VS, AGCJ) 
COONAP (IT, Js,TR) = 1,08 PONCEXCT,SeITRIePON00KK(T,J,I&8) 
SORO CONTINUE 
C EQN 1e#A) © ATTRITION OF AA VS, AGCJ) 
ADNDAP(J,IBIYERONNSP(J,TAVeC1 N9eCO002P(1,J,I1IB) e «DIVINE (CROCO2F(4,1R) 
$ -RONOSPCIR)I) #CN002P (2,3, TRIY**DIVIDE(RIDOAP(2,ITR)»ROOOSP(IR)) 
2 *CO002P (3, Ie TRI #*NIVIDE (RODN02P(3,IR),R0005P(18))) 
C EQN (129) © SURVIVAL RATE FOR AG(J) 
RONNGP(J,TRY = RONOZP( J, IRIPAN002P(J,18) 
5199 CONTINUE 
$120 CONTINUE 
DI) S220 I8=1,2 
TR=3=18 
D9 5200 Jsei,JA 
DM St4o Yet, IF 


eR RK RK REE RE AMKREE EKER EKRAEE EEE EKARA KEKE EKER KE 
SFCOND EQUATION SET 
GRIUND NEFENSES AGAINST AG(J) 


GiF DEFENSE 
EQN (203) © FRACTIONAL ALLOCATION OF AFCJ) TO FRONT T 
FOLOIP CI, T,IRENDIVIDE (ANGOI1P (I, IB), (CA9GOIP (CY, ITB+A0UNIP(2,IR)+ 
$1 49401P(3,18))) 
C EQN (2=2) @ ACQUISITION FACTOR FOR AG(J) VS, GIF(I) 
POLOIP CI, T,IBIS1 OME XP(mALPHARCOALIX( J, TBI FAV(PGIF4I,78)) 
C EQN (203) © ACQUISITION FACTOR FOR AG(J) VS, G2F(T) 
NISG2CTA,IRISOIVIDECAMAX! CVC PGF SI, TR eCOSALXCIReVIPGIF SI],I8), 
) 0,0),vV(PG2F4J3,1R)) 
POINO2APCI,IT,IBIH1 MMEXP(mALPHARCO2I{X (J, TB) *DISGAC(T, TR) eAV(PGOF SI, 
{ IR)) 
C EQN (2085) = FRACTIONAL ALLOCATION OF AJR BATTLE SURVIVORS TN GIF(T) 
FOINOSPC IT, TeIRISFOLOLKXC Je TA FF OLOLP CI, Te I BHF OCOIX(J,1,18) 
C EAN C2"6) © KILL PRORARILITY FOR GIFCI) AD AGAINST 46(J) 
POINSECT,J,I8&) = 1,99(1 OMPOLO3X(J, 12) ) #8 (FOI N2X(TRJRV(PGIE STs IRD) 
C EAN (2e7) @ OIRECT ATTRITION FOR GIFC(I) VS, AGCJ) 
AOLOIP(CT,I,TP) S&S RNDGUP(J,TRI#FOLOSP(J»,T»TAI#C1 MH (1 MMPNINWM(I ede 
€ TRVRCH OMPNIDIPC Ss Te TARR PON OUXx(J,7R))) 
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as 


ove 


cr 


CV Fac 


CVOUOVCE 


Cc 
C 
3 


C 
Cc 
Cc 


BOF DEFENSE 


EQN (209) @ FRACTIONAL ALLOCATION DF AYR BATTLE SJRVIVOIRS TT G2F(T) 
FOLOSP( J, Tp, IBVSFOLOYXC J, IReFOLOIP (CS, IT ,T8)eFn20ex( 3,118) 

EQN (2810) @ KILL PRORARILITY FOR GeEF(CT) AD AGAINST aG(J) 
POLO4UP(T,J,ITRF) = 1,081 ,0PPOINSX(J,IR) ew (FOLO3SX(IRI#V(PGOF ST, 1®)) 

FAN (2-11) © DIRECT ATTRITION FOR GeFI ON AF(J) 
AOLON2P (7,378) = ROOOUP( SJ, TAR) *FOIOSP(J,T,1IB) (1, 0K (1, 09FO1NUP(I,J, 
{ IR))#(1,0"PO102P(J,Te,IB)*POL0SX(J,12))) 


S140 CONTINUE 


GIR DFFENSE 


EQN (2=12) # KILL PROBABILITY FOR REAR AGAINST AGCJ) 
POLOSP(J,IP) = 1,0=CY,OMPOLOSX(S,IRI ew (FOLNOK(TR)x(v(PGIFe1,1 8 ev 
$ (PG1F 42, IP )4¢V(PG1F4+3,1R))/3,) 

EQN (€2=13) © FRACTIONAL ALLOCATION OF AIR BATILE SURVIVORS 19 GIR 
FOLOGP(CS¢2IBI= C1, MMF NIO1XCJ,1B8))*FOloux(d,18) 

EQN (2034) = ACQUISITION FACTOR FAR aGR(J) AGAINST GI 
POLORP(IJ,TIR VSL OmF XP CmALPHARCNO{UX(J,JR)#AV(PGCR,IK)) 

FON €2e$5) = DIRECT ATTRITION FOR GIR AGAINST AGCS) 
AN1O3P(5,IB) = ROONUP(C I, IRV eFOL OOP (S,IB (i 0H (1, OM=POIOSEP(S, TR) )#[ 
$ 1,0°P01NHP(J,7B)*P0104xX(J,1R))) 


G2R DEFENSE 


(2e{6) FRACTIONAL ALLOCATION OF ATR BATTLE SURVIVIRS TD GeR 
FOLO7TP(S,18) = (1, 9RFOL10IX(J,IB))*FOL0SX(J,IB8) 
EQN (2917) © ACQUISITION FACTOR OF AGCJ) AGAINST GeR 
NDISGAC4,IRISDIVIDECAMAXI(CV(CPGAR, IR) eCOSAIXCIR) eV (PGIR,TR),0,0), 
| V(PG2R,IR)) 
POLOOP(S,IBIEL  NPEXP(MALPHARC O21 SX(J,T5) eDISG2(U,JR)eAV(PGOR,]H)) 
EQN (2036) |= DIRECT ATTRITION FOR GER AGAINST AG(J) 
AOLO04UP(J,1B) = ROONUPCI,TRIRFOLSOTP(S, TA) e(J OH (1, OMPOLOSP(I,IRI Hl 
$ 1,0=P0{0BP(J,1IR)*POL0SX(J,IR))) 


S DEFENSE 

EQN( 2819) © FRACTIONAL ALLOCATION OF AIR RATTLE SURVIVORS TO S 
FOLIBP(S/18) = (1, 09FO101X( 3,18) )*F0106X(J,18) 

EAN (2"21) DIRECT ATTRITION FOR § AGAINST AG(J) 
AO105SP(J,1B) = ROOOUP( J, IB) eFOLNBP(J,IB)«(1,09(1, 9=PO105P(J,IR)) 
Ye CL, SePOLOTX(I,IR))) 


LAUNCHER DFFENSE 

ON 5160 L=i,Lb 
EQN (2822) = FRACTIONAL ALLOCATION OF AIR BATTLE SURVIVORS TD LIL) 

FOINOP(S,L-TB) = (1, 09FOL0IX(S,18))*FOI07X(J,L-IB) 
EQN (2823) © ACQUISITION FACTOR FIR AG(J) AGAINST LCL) 

POLIOP(CJA,L,TS)E1 OME XP (MLLPHARCOCISX(Js,LeIB)#AV(PL +L, J8)) 
FAN (2—2P4) @ NIRECT ATTRITION FOR L(L) AGAINST AGCJ) 

ADIN6GP(Lo>JeT4) = ROOOGUP(S, IR) eFOLO9P (JL, TRI (1 ,09(1 NHPOL0SP(J,IR 

$ IROL, OFPOLLOPCJ+L oe IB) POY OBX(L.J,7TR))) 


S160 CONTINUE 


90 5180 “s1,B 


RASE ATR DEFENSES 
EAN (2825) © FRACTIONAL ALLOCATION OF ATR RATTLE SURVIVORS 79 BC) 
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FOLINOCIL,4,I) = C1,9FOL01X(S,I4))*FOLORK(J,%,I18) 

C EQN (2826) @ DIRECT ATTRITION FIR 8(M) AGAINST AG(J) 
ANJO7P(M,J,718) = RODNUP(CS, TAF OLIOP(J.”™,1B)#(1, 0" (1, 0"9P01NSP(J,IR 
1))*01,0"2P0109X(4,),78))) 

5180 CONTINUE 

5200 CONTINUE 

S229 CONTINUE | 


O71 $420 JT8=}3,2 

TRs3eIB 

Di S320 L=telk 
Cte eK RK EEK EKER ERESD 
C 3A EQUATION SET 
C MISSILES VS, GROUND TARGETS 

NN Sean T=ai,I1F 


| 
| 
[ 
c GLF GROUND TARGETS 
C EQN (€30}) = FRACTIONAL ALLOCATION OF LCL) AGAINST GIFC(Y) 


FOSOIPCL,IT,TRISFOSNIX(L, TRI RFOSOAX(L,I,IR) 
1*FOSOSX(L,J,IR) 

© FON (382) = FLOW OF MfFL) FROM REAR TO GIFCY) 
POSOIPC(LA,T,IF JEL OME XP (HAL PHARCOSBIX(L,TRY#AV(PGIF 4T,78)) 
ROSOYPCLAT»TRISV(PLeL,TRIFROZOINX(L, IRI eFOSOIP(L eT, IR)*® 
‘ SHIT TCH(V(PMOL,IR))¥POSO0IP(L,I,12) 

C EQN (303) = ATTRITION FOR M(L) AGAINST GSFC(I) 
AGBOIPCL»~AT»AIFIVS POSOIX(LA,ATR#ROSOIPCL ,I1,IR) 


GeF GROUND TARGETS 

FQN (3ed) © FRACTIONAL ALLOCATION OF L(L) AGAINST GeF(T) 
FOSOCP(L,T,TRISFOSOIX(L,IRI*FOSO02X(L,I,IR) 
1*(1, 9% FO303K(L,I,IR)) 

C EQN (325) © FLOW OF MEL) FROM REAR YO G2FC(T) 

POSOAP(L, IT, IRIEL, OPEXP(wmAL OMA MC O2S2X(LAIRI*DISGE(I, IRI esV(PGAFs], 
{ TR)) 

ROSNAP(L AL», IRISV(PL#LeIRIRROSOLX(L, IR IRF OS0CP(L,»,T,IR)*® 

1 SWITCH(V(PM4L,IR))*PO0302P(L,1,IR) 

C EQN (326) © ATTRITION FOR M(L) AGAINST G2F(T) 
ANZN2P(L,LT,IRIS POSNPX(LATReRO3ZV02FP(L,I,IR) 

52400 CONTINUE 

C 

c GIR GROUND TARGETS 

C EQN (3287) @ FRACTIONAL ALLOCATION F L(L) TO GIR 
FOSNSP(LAIRIE (1, OF OSOIX(L,IT2))eFOSOUX(L,IR) 

C EQN (308) © FLOW OF M(L) FROM REAR TD GIR 
POSNSP(L,TRIEZL OME KP (mALPHARCOSSEX(L,»,TR)eAVOIPGIR,IR)) 
POSOSP(LAIRIEVCPL4eL,IRIFRIZOLK(L, TRI EFOSOZP(L, IR) ® 

{ SwHITCH(V(PM4L,IR)) «P0350 5P(L,TR) 
C EQN (309) © ATTRITION MF M(L) AGAINST GIR 
ANZOSP(L,TRIZSPO3N3ZK(L,TRI*RO3ZOSP(L,IR) 


5 ot UK an Tr 9p 


C G2R GROUND TARGETS 
C EAN (3010) © FRACTINVAL SLLOCATIIN OF L(L) TD G2R 
FOSNUP(L, IRIS (C1, OMPFOSOIK(L,FRI)#FOSOSK(L, IR) 
C EQN (3el1} © FLOW OF M(LY FROM PEAR TO GeR 
POSNUP(L,IRIEH1 OME XP (mALPHARCNAZUX(L,TRIeNISHA(U,TR)RAV(PG2R,TR)). 
ROSOUP(L,ITIRYSV(IPLEL,TRI#RROSNIX(LATRIRFUZOSP(L,IR)*® 
| S“TTCH(V(PM$L,1R))aPO30UP(L,IR) 
C EQN (3e$2) © ATTRITION NF “(L) AGAINST GeR 
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ADOBOUP(L,IRIS PHZOUX(L,TRY#ROSOUP(L, IR) 
0) 5260 K=E1,LL 


io) 


C L(K) GROUND TARGETS 

C EQN (3043) © FRACTIONAL ALLOCATION OF M(L) AGAINST L(K) 
FOBNSP(L Ke TIRIZ(1,0-FO3S0LX(L-IR)) 
1eFOSOKX(L,K,IR) 

C EQN (3514) & FLOW OF M(L) FROM REAR TI LOK) 
POZOSP(L Ke TRIS1T,0OSEXP(MALPHARCO2Z35SX(L, Ky, TR) #AV(PL OK, IR) ) 
ROVOSP(L Ke TKISVOPL HK, IRIRROSOLX(L,IRIRFOZOSP(L,K,IR)*® 
! SKITCH(V(PMeL, 1R))*ePO30SP(L,K,IR) 

C EQN (3015) © ATTRITION OF M(L) AGAINST L(K) 
AQOBOSP(L,K,-IB)= POZNSX(L,K,IR)#ROSOSP(L,K,IR) 

$260 CONTINUE 


S GROUND TARGETS 
EQN (3816) © FRACTIONAL ALLOCATION OF LCL) 79 S 
FOSOOP(L-IR) = (1, 0=FOS0IX(LAIR))eFOSO7TXIL, IR) 
C EQN (3017) » FLOW OF M(L) FROM REAR TO S 
ROBZOEP(LAIRISEV(PLEL,IRI*#ROSOYX(L,TRI*FOSOGP (LIRR) 
1 *SWITCH (VC PMEL,IR)) 
C EQN (3818) » ATTRITION OF “(L) AGAINST S 
AOSNOP(LAIBISEPNZOEX(L,IRI*ROSOBP(L,IR) *SanITCH(V(PS,18)) 
097 S280 m=i{,MB 


a ge 


c BCX) GROUND TARGETS 
C EQN (3839) © FRACTIONAL ALLOCATION OF L(L) AGAINST B(M) 
FOSOTP(LMA,IRIS(1,9MFOSOIXCL,IR)) 
1*FO308X(L,4,IR) 
€ EQN (3820) © FLOW OF MIL) TO BEM) 
ROSOTP(LAM,ITRIZEV(PLSHL,TRIXROSOLXC LA, TRI*FOSO7TP(L,4,1R)* 
1 SWI TCHCV(CPM4L,TR)) *DIVINDE(V(PBe4,1B),VOCPReM, 78) ) 
C FON (3921) © TOTAL AITRERAFT ON BCM) 
VOBOIP(M,TB)EV(PAJEM, TB) +V(PASS2e%, IB) eV(PAS4UeM, IR) 
52R0 CONTINUE 
99 5300 Jsi,J4 
C EQN (3223) © ATTRITION FOR M(L) AGAINST AB(J,1) 
AOZOTP(LeSeTE) = ROZOTP(L ole ITRIMPOZOTX(L YI, TR) 
fwOIVIDECV(PAJ+2e Jas, 18) *0,9,V(PR41,18)) 
SeSwITCH(V(PR41,I1R)) 
C EQN (3824) = ATTRITION FOR M(L) AGAINST AB(J,2) 
ANZSOBP(L,J»-IB) = ROSOTP(L,2,1R)*P03S07X(L,2, IR) 
{*NIVIDECV(PAJ+2eJ TR) #0,9,V09R42,18)) 
2eSWHTTCH(V(PB42,IR)) 
S300 CONTINUE 
5320 CONTINUE 
DN $400 Ji,JA 
C 
Ce ee HH HK ERK EEK ERK KEKE EEK EEEKA EEE KEE EKER KER EEE 
c 38 EQUATION SET 
C ATRCRBFT VS, GROUND TARGETS 
D0) 5340 T21,IF 


AG(J) VS, GIFCT) 

EQN ($825) © ATTRITION OF AGCJ) AGAINST GIF(T) 
¥O32IP(S,1,I1R) = ROOOUP(J, IR) #FOLO3(J,I,71R) 
AU321P(J,T,7#) = ROS2IP(JsI,IR) 


CV.CUC 
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S340 
( 


C EQN 


MAM 


hat ee ast a ae | 


EQN 


5360 


S370 


C ENN 


1*SIRT(C 1, OsFPOL03P(1,5,15))#PO{OIP(J,1,IR) 
2 RSARTCILOPPIIOEX(CJ,IB)I#(CPOLOIX(I,1,IReFOS2SP(S,1,1R) > 
3 POLOUX(CT,2e, TP) eFOSCBP(J,2e,TR)) 


4G6(3) vS, GeFC(I) 

(3=26) |= ATTRITION OF AGC(J) AGAINST GeFC(I) 

ROZ2AP(J,IT,1R) = ROONGP(J,IRI#FOLOSP(J,1,IR) 
A40322P(J,7,1IR) = ROS2AP(J,T,IR) 

1eSQRTC1, O=POLOMP (1, 3,78) )*P0102P(J,1,18) 
2 RSORTEC1L,O=POLOSX(IJ,IB) eC POI0AX(S,1,IR)*FOS23P(J,1,IR) + 
3 POLN2EX(J,2,TR)*KFO323P(J,2,78)) 

CONTINUE 


AG(J) VS, GIR 

(3227) @#© ATTPITION OF AGCJ) AGAINST G18 

FOS23P(3,TR) = RODNOCUS(I,IRI*FOL0HP(J,IR) 

A0323P(J,168) = ROZ23P(I,IR) 
1*SART(C1,0"F0105SP(J,3IB))#P0106P(J,IR) 
2 TSART(CL,OMPOLOUX(CS,IBII* (FO SS3XCIr1,TRI#FOSCSP(S,1, TR) ¢ 
% POBC3X(CI,2,TRIRFOZCZPIS,2,1R)) 


ARCS) VS, Ger 

(32-28) © ATTRITION OF AG(J) AGAINST GeR 

RON3P4UP(J,IR) = ROONHP(YJ,IRI*FOLO7TE(IJ,IR) 

ANS24P(J,-13) = ROZ2Q4P(J, IR) 

1*SQRTC1 O—POLOSP(S,TRI) #901 08P(J,1R) 
2 *SORT(Y, OPPOL0SX( J, IB) ECPOSAUX(T,1,TB)eFOS23P( J, 1,IR) + 
3 PO32UX(I,2,1R)*FOSO3P(I,2,18)) 


4G6(J) vS. § 

(3-29) = ATTRITION OF AG(J) AGAINST § 

RNOZCSP(I,TR) = ROONUP(J,IR)*FOLOBP(J,IR) 

ANZ2SP(CS,18) = ROB25P(CI,TRIKSART (1, 0=P0105P(3,18)) 
2 *SQRTCLOMPOLOTXC I, IBIIRCPONSASX( Sp, 1,IRI*FFOSSSP(J,1,1R 4 
ks PO3S25X(J,2,IR)#FO323P(3,2,78)) 

DO $360 LEl,LL 


AG Oe Vis “E03 

(3=30) © ATTRITION OF AGCJ) AGAINST LCL) 
RO3ZCOPCI,L-IR) = ROONUP(S,IR)«FO109P(J,L,I®) 
ANSPOP(S,L-IB) = ROZ26P(I,L,IR) 
{*SQRT(1,0=POL105P(J,IB))*PO110P(J,L,IR) 
2 WSORT( LT OPPOLOBRX(L, Se TA) ECPOSA2OX(JpLeexT Ref eFANZOSP(J,1,18)4 
3 POZ26K(T,L,2eTRI*FOSP3P(J,2,IR)) 

CONTINUE 

PN 5370 MS1,"8 

ROSATEC IM» TR )VEROOOUP( JS, TR YeFOLIOP(J,M,IR) 
CONTINUE 

PT 5380 I=1,JA 


AG(J) VS, BC) 
(3=31) © ATTRITION NF AG(JI AGAINST B11) 
ANSZ27TP(J,T,16) S&S RO3Z27IPE(I,14718) 
{*SORTCY OePOLOSP(U,TRIJ*#SART (1 OePOLN9XC),53,T9)) 
2 #(POSSTIX( Tele ee Rel peFOS2RP(C Sele TRI SPO SOTX(Jelr,eetR)® 
3 FOZ2ZPCJ,2,IRIIENIVIDE CV (PASeoetTay, TR) #0,9,V(PRe1,78)) 
(30832) © ATTRITION OF AGC J) AGAINST B(2) 
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eS et A RD Si a ee a — 


40328P(J,1,18%) = ROZ27TP(J,2,IR) 
1*SART(C1,M9PN10SE(S,IR))*SIRT(1,00eP9109K(2,3,78)) 
2 (POSSTIX( Se 2, 2eT Ral eFOS23P(J,1, TRI +P0327X(J,2,24%TR)*® 
3 FO323P(J,2,TRI*NOIVIDECV(PAJS+oe—~— ,18)*0,9,V(PK+2,13)) 
S3adq CANTINUE 
5400 CONTINUE 
$420 CONTINUE 
PN 5460 J18=1,2 
TR=3e]R 
NO S440 Isi,IF 


Cm eR RR RR ERE KEKE ERK EEE KKK ENE EE REE 


C FOURTH EQUATION SET 
C GROUND TO GROUND IATERACTIIONS 
Cc 
C GIE VS. IGtF 
C EQN (Ue 1) ATTRITION FOR GIF CIT) AGAINST GIFCT) 
ANUOIP(T,TEYSPQUOIX( IR) (1, 0MEXP (6,9 eV(PGAF ET, TRI/SV(PGIF 41,12) )) 
{ eV(PGLF+],78) 
ADNSNIP(T,IRISAMINI (ANUOIP(CI,18),v(PGIiF¢)],78)) 
C 
C GS vs, G1 
ry & EQN (t= 2) FLOW OF GSFCT) FROM FRONTCE) TO GIF CT) 
a VOUDIPCIT,TRIECOUDEX(IR) *V(PGIF4I,I1R) 


POUNPP(T,TRIEL,OMPEXP(mALPHARCO2UAX(TR) eAV(PGIF4I,I12)) 
ROZOLP CT, IRSVOUNLE(J, TR) eROUOLX(IR) eFOGOIX(I,IR)* 
! SaTTCHCVCPGSFel, IRI) *eP9UNAP(T,12) 
C EQN (Um 3) ATTRITION FOR GSF(T) AGAINST GIF(TI) 
ADUOPP(T, IRIE POUOAX(TR)#ROUDIP(I,IR) 


an 


G6 vs, Gi 
C EAN (Se 4) = FLOW OF GoF(T) FROM FRONTC(I) TO GIFCI) 
VO4NPP(IT, IR) SCOGOTX(IR) *VCPGIF 41,12) 
POUNZPCT,IRI=ZH1 OPE XP (mALPHARCOOUSX(IR) &*DISG2(1T,I1B)«Av(PG2F4I,78)) 
ROGO2P (Tr IRIVEVOUDCP(IT, IR) eROUNAK(TR)*FOUDAX(T,IR)*® 
1 SWITCH(V(PG6F4¢I,1R))#POuUNuP(T,I&) 
C EAN (Ye 5) @ ATTRITION FOR GoF(T) AGAINST GIFCI) 
AODGOBP(I,IBJES POUOSK(IR)I#RONUOCP(I,IR) 


65 ¥S, Gz 

FQN (U= 6) » FLOw OF GSF(I) FROM FRONT(I) TO G2F(T) 
POUNBPCT, IR) EL, OF XP (mALPHARCO2ZU3X (IR) RAV(PG2F4I1,IR)) 
ROAOZP(T,IRISVOUNIP(T, IRI RROUNIX(TR)&(1,0=FOUDIXC(I,IR)I* 
1 = SKITCHCV(PGSFeI,IR)) ePO403P(T,IR) 

C EQN (Ue 7) © ATTRITION FOR GSF(IT) AGAINST G2F(1) 

ADUDUP(T,TRIE POUOUX( IR) RPNUNZP(T,IR) 


CLEVE 


G6 VS, Ge 
EQN (Y= KY @ FLOW OF GOF(T) FRIM FRONTC(I) TN GeFCT) 
POUYOSP(T,TR)H1 OME XP (He ALPHARCOAUSX(IR) *DISGA(T, IB) *eAV(PGOF eT, 18) ) 
ROWOUP(T,TRIEVOUO2P(T, IR) #ROUN2K(TR)e(1, 09°F OUN2K(1,IR))* 
{ SWITCHOV( PGF SI, TRY) ePOUNSP(T,IR) 
C EQN (4= 9) © ATTRITION FOR GHF(I) AGAINST G2F(T) 
490405P(JT,I1IK)= POUOSK(TR)*eROUOUP(T, IR) 
5440 CONTINUE 
5460 CONTINUE 
029 SSAO IKb=1,2 
TksseTA 


Inn 
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Ce ke RRR RRA RRR REE REAR EKER REE RAE KAAEKERAEKREE EEE EER KR EEE RE 
€ FIFTH EQUATION SET 
C FLOWS AND ASSOCIATED ATTRITIIN 

09 S4RO Js1,IF 


G1 ATTRITION 
EAN (Sel) = TOTAL GIFCI) ATTRITION 
ANSOYP(T,IR)= A0301P (1,717,718) +A0301°(2,1,78) 
1+ANSZ2IPCL eT r+ IB) +A0S2IPC2,1T +13) +ANS2IP (5,7 ,I RB) +A0401P (7,18) 
2+A0K0PP (1,168) 4+A0403°(T,]R) 
S480 CONTINUE 
M9 5500 Jei,JA 


Ce cy 


C 
C ATRCRAFT ATTKITIDN 
C EQN (5=#2) © ATTRITION FOR AA AGAINST AJ) 
ANSTIPC I, IBIS ANOOTE(S, T2+a0NaeP(J,1B) 
C EQN (S5e3) = TOTAL AGSC(J) ATTRITION 
ANSS2AP(I,TBSIES ADLOIP(1,J,-T6)+A0101P(2,5,7R)440101P(3,5,19) 
1+AO0102P(1,J,1B)¢A01028(2,5,78)4401029(5,53,78)4¢A0105P (5,18) 
AC+ANLOMP CS, IR VFAOLOSPCI,TR e201 06P(1,3,148) 
S4A0106F(2,J,IB)+A0I07P (1, 3,78) +A0I07P(2,5,18) 
C EON (S84) e TOTAL AR(J) ATTRITION 
AOSISP(Y,Jr>-TSVEAN3NTE (CI, J,1B)+¢A0307P(2,J,IBI+ACSC7TH(1,J,IT8) 4% 
{ ADBPATP (A rJs TB) FAN 3C7TP( 345,18) 
AOSISP(CA,JzTRISAOSNBE (3, J,TRIFANSORP(2,J,TR)+A032RP({,J,TR)4 
{ AUV328P(2,J,ITR)+AN3CKP(3,J,I18) 
€ ERN (€SeS) ¢ TOTAL C2) ATTRITION 
AOSLUP(S,IBIZANSLIP(CJ,IB) + A051 2P(J,18) A053 SP (1, 5,184 
1 ANS513P(2,J,18) 
C EQN (S@54) |= TOTAL BEMYACS) ATTRITION 
00 S5S00 “=1,™B 
AOSITP(M, J, ITBISA0NDIPCS,TRIeFOZCIP(M,J,-T8I+#(ANNN02P(J,I18) « 
{ 40512P(J,18))«FO322P(4,5,18)+A051 SP(M, 5,18) 
5500 CONTINUE 
97 $510 “s),”B 


AU/AS ATTRITIONS AND EXPENDITURES 
EQN (S=#6) © EXPENDITURE OF AU 
EQSIIP(M,TRIECRONOIP(I MATA HCL, 9eFOONIX(1,FR))*RONOIP(2,%,I18)*® 
{ (1, 9*FON0IX(2,7R))+ROO0IP(3,M,18)e(1,0"F N001X(3,18)))* 
2 EOSLIXCIBI+FROOOIP CI M,TB)eFOOOIX(S, TB) *E0SI2xX(1,2,18) 4 
3 ROOOIP (Osh, IB) #FO0OIX(2,TB)eROOO7TPE(2,4,18) FE OS12xX(2p2eT B+ 
u (ROOOIP(3,M,ITR)#eFOGOLX(3,ITRI=ROOO7TP(3,4%,782)) eENS12x(3,2e,18) 
C FON (Se87) » EXPENDITURE OF AS 
FOSITAP(M,TKE)SROOOTE(1,M, TR) eEOSJ AX (1,1 ,TRIFRONOTE( 2,4, IB) 
{ FOSL2xX(2pLeTR)YH#P0007F(3,4%,78) eE9512x%(3,15,73) 
C ERAN (Se8) @w ASSOCIATED ATTRITIUN OF AU 
K2S1,OwmFOOCIK( 2, TBV#(1 ORF KPC, Sev(PASeM,1B))) 
XBL, OeFQOOOIX(C 3, TR) #01, OMFEXP(e,1S*v(PASeM,1B))) 
QSDIVIDECV(PAGSM, TB), VIPASe4, TR) exoev(Palecem, Rl exX3ev( PA jleuem, 78) 
1 ) 
BOSISP(M,IB)SANS1 SPCY,Y, TR) RAMINICCOSLIX( TA), IIEK S405) SP(%, 2,18) 0 
1 AMIN{ (€0512X%(2,7TR8),R)oX3#A0S§ 3P(4, 3,TR)RAMINI (COSI 3X(2,78%), 
C FAN (589) © ASSOCIATED ATYTRITINN OF AS 
¥P=1,0"x2 
¥353,00ex3 
QNSENTIVIDE(V(PASeM, TRY, XAPeV (PA Jee ome Tal ox tev( Ps Jouer, 


nan 
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AD-A052 025 BDM CORP MCLEAN VA F/6 15/7 
COMBAT=-II USER'S GUIDE. (U) 
JUN 77 B P AYRES? S BRADY F L KLOTZ DNA001-76-C-0067 
UNCLASSIFIED BOM/W-77=-310-TR DNA~4346F NL 


1:2 1.0 = a zs 


sae 


Wot LI zg 
iF as 
WEES UL las 


a 


ANSIOP(M,TB)EX2#A0S13P(M,2,T3I)RAMINI(CCOSIAXC1,7R),9)4xX 5HA05) SP(M, 
{ 3,TB)* AMINE (C051 3K01,78),9) 

5510 CONTINUE 
99 5520 Jsi,I1F 


GPF ATTRITIONS ANN EXPENDITURES 
EQN (5810) © TOTAL ATTRITION FOR GeFC(I) 
ANSAPIP(T,IB) = 40302P(3,1,18)+A0302P (2,131,168) +4032°PP(1,1,18)+A0320P 
102,1,18)4¢40322°(3,1,18)+A0404P(T,1B) +A0405SP(1,18) 
C EQN (Sei) = ASSUCTATED ATTRITION FOR Ge 
ANS22P(T, TRIEANSOIP(I, IB) &DIVEFIX(CAMING (COS2IK(TB)*V(PGIF 4,18), 
{ VCPGPF+I1,18)),VCPGIF+1,18)) 
C EQN (Sef2) = EXPENDITURE OF G2 
EOSCIP(T, IB) SFE0S21X(IR)eV(PGIF4I,18) 
{ C1 OMEXP (6 FeV (PGPF SI, 1B) /V(PGIF4I,18))) 
5$20 CONTINJE 


Qa 


C 

iS GiR ATTRITIONS 

C EQN (5913) = TOTAL ATTRITION FIR GIR 
AOSSIPCIRI= A0303P(1,15)+40303P (2,18) 
1440323P(1,1B8)449323P(2,18)+A0323P (3,18) 


G2R ATTRITIONS 
EQN (S=14) © TOTAL ATTRITION FOR GeR 
ANS 3S2P (TRIS ANZOGP(1,TR)I+ANZ04P(2,78) 
1+A0324P(1,I1R)+A0324P (2,18) +A0324UP (3,18) 
C EAN (5H15) = ASSUCIATED ATTRITION FOR GeR 
AOSZBP(TRISAOSBIPLITR)&ANIVFIX(AMINI(COS2YXC(IB)eV(PGIR,I65), 
1 V(PG2R,1B)),V(PG1IR,IB)) 


AAD 


Cc 
C S ATTRITIONS 
C EQN (Se4{SA) = TOTAL S ATTRITION 
AOSUOP(IR) = AV306P(1,1B8)+A0306P (2,18) 440325P(1,1B)+A0325P (2,7) 
{ +A0325P(3,18) 
O99 $540 L=i,LL 
C 
C L(L) ATTRITION 
C EQN (S516) |= TOTAL L(L) ATTRITION 
AOS4IP(L,IBI= A40305P(1,L,1R)+A0305P(2,L,1B) 
14ANS26P(1,L,1B)+A0326P(2,L,38)+A0326P(3,L,18) 
C 
c M(L) ATTRITICNS AND FLOWS 
C 
C FAN (S174) » NUMBER OF “(L) PER LAUNCHER 
X=DIVFIX(V(PM#¢L,IB),VCPL4L,I48)) 
VOSUIP(L,TB)=AMINI (V0541x%(L,1B8),%) 
€ 
C EQN (Se#17R) = NUMBER OF MCL) IN STTES 


VO542P(L,IB) = V(PM#L, IB) eVOS4IP(L,IB)*VCPL4L,18) 


c 
C EQN (Se17C) © NUMBER MF M(L) I" TRANSIT 
VOSUSP(L,IBISAMINICVOSG2P(L,1B),VOS4SX(L,18)) 


EQN (5#$8A) = L(L) ASSOCIATED ATTRITION OF MCL) 
AOSL2P(L, TR) = VOSUIPIL, 1B) #40SGIP(L,18) 


C EAN (5e1BR) w S ASSOCTATEN ATTRITIIN OF MCL) 
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VOSG2P(L,TB)SVOSU2P(L, 1B) =VOS45P(L,IB) 
ANOS4SSP(L-TBIEVOS42P(L,IB)e®DIVFIK(AYS4OP(19),V(PS,I1K)) 
C EQN (519) © TOTAL FLOW FAR “(L) 

ROSUIP(L,IBIS ROZOIP(L,L,-IB)+tROSOLP(L,2,1T8V+ROSOIP(L, 5618) 
1#ROSOAP(Ly1,1B)¢RO3NPP(L,2,T8) +ROS02P(L, 5418) 4R0 50 3P (LIB) 
ZeROZOUP(LAIBIFROZOSP (Lele T8IFR@OZOSP(L,2,18) +RO306P (LIB) 
Z+ROSOTPE(L,1,ITBS#RO3N7TP(L,2,18) 

C EQN (5194) » ASSOCIATED ATTRITION G2R ON M(L) 

AOSUGP(L,TA)SVOSUSP(L,1B8) *ANS32P(IB)*XDIVEIX(1,0,V(PG2R,1B)) 

S540 CONTINUE 
0 5560 I51,IF 


GSF ATTRITIONS AND EXPENDITURES 

EQN (Se?0) © ASSOCIATED ATTRITION FOR GSF(I) 
ANSSIPCT,IRY= COSSIXCT8)*(A0S22P (1,318) 4A0521P(1,18)) 
{ *OIVEIX(V(PGSF4I,IR) »VCPG2F 41,18) ) 

C EQN (S21) © EXPENDITURE OF GSFCI) 

FOSSIP(I,TH)S RO4OIP(T,IB)+RO4OBP(I,IB) 


aon 


GeF ATTRITIJONS AND EXPENDITURES 
EQN (S=22) © ASSOCIATED ATTRITION FOR GO6F(I) 
ANSS2P(T,IB)= COSSe2x(IB)*(40522P(1,18)+A0521P(1,18)) 
| eDIVFIXCV(PGOF SI, TBI, V(PG2F4¢I1,18)) 
C EQN (5223) © FXPENDITURE OF G6F(T) 
EOSS2P(IT,IB)= ROUNPP(Y,1R)+RO4GUP(I,1B) 
55690 CONTINUE 


Cs We aa Bi as} 


C 
C GSR ATTRITION 
C EAN (5e24A) = GP ASSOCIATED ATTRITION JF GSR 
ADSOLPLIBIZSCANDSZIP(TRI FADS S2P(IBIIRAMINI(VOSSIX(TBI,VCPGSK,J&))* 
{ NIVFTX(1,0-,VCPG2R,T8)) 
EQN (58248) = S ASSOCIATED ATTRITION OF GSR 
AOSH3P(IRIZ(V(PGSR,IB) MAMINICVOSSIX(CIBY, VCPG5R,JA)))*DIVEIX( 
{ AOS540P(1B),V(PS,JB)) 


a 


GOR ATTRITION 

EQN (58254) © G2 ASSOCIATED ATTRITION OF GbR 
bOS62P(IRISCAOSZSP(TR) FANS 32P(1B)) eAMINI(VOSS2X(IB),VCPGOR,IK))*® 
j OIVFIX(1,0-V(PG2R,I8)) 

EQN (5=25B) = S ASSOCIATED ATTRITION OF GbR 
AOSOUP(IBIE(V(PGHR, IRB RAMINS (VO552X(IBI,V(PG6R,1K))) *DIVFIX( 
1 AOSUOP(IR),VC(PS,IB)) 


ana 


a 


RESUPPLY RATES 
EQN (526) © RESUPPLY RATES 
ON SS66 M=1,MB 
29 5565 J=1,J74 
ROSTIP(M,J,IB)SROS7IX(M,J,18) 
5565 CONTINUE 
ROS72P(™,1,TBISRO572xK(4,1,18) 
ROS72P(@,2,TKR)SR0S72XK(M,2,18) 
5566 CONTINUE 
ROS7TUP(TIR) = ROS7TUXC(IR) 
ROS7TSP(TR) = ROS7SXK(IB) 
ROS7T6P(I6) = RNS76XCIR) 
RASTTIPC(TF) © ROS7T7X(1B) 


aan 


09 $570 Lei,LL 


ROSTAP(L,IB) = RO5S7B8X(L, 16) 
ROST9P(L-IR) = POS7T9X(L,IB) 
5570 CONTINUE 
5580 CONTINUE 
OG SROO 1h=1,2 


TR=e3e]A 
C 
Coe ea RR RRR ERR E RE ERE KERR EKER KARR EAREKEEKEERE 
Cc KINEMATIC EQUATIONS «ete AT LONG LAST eee 
NO S660 J=1,1F 
C 
€ F MOVEMFEFAT 
C EAN (681) © ROT) 


COHOIPC(T,IBISDIVIDECVCPGIF4I- IB) *AOSOIRP(T, IRI eVIPGIF eI, IR)* 
1 ANSOYPCI,IB),VCPGIFSI, TR) *ANSOIP(I, IR) +V(PGIF eI, IR)* 
2 A0SO1P(1,18)) 
IFC (COBMIP(T,IR),NE.0,0) OR (V(PGIF FI, 18) *A05S0I1P(J,1R),NE,0,0)) 
4 69 TO 5640 
IFCVCPGIF4¢1,IB)=V(PGIF4I,7&8)) 5600,5640,5620 
5600 CONTINUE 
CHOeOIP(T,IBIS 1,0 
60 TO 5640 
5620 CONTINUE 
CO601P (YT, IBIS 1,0 
5640 COANTINUE 
C EQN Chee) © KINEMATIC FOR XFCT) 
OV(PXF eT, 3B) = ROGOLX*COBOIP(I, IS) #(COGN1X4(1,9C0601X)*CN601P (1,18 
1)aed) 
5660 CONTINUE 
DO $690 M=1,MB 
DA S680 JE1,JA 


€ 
C ACJ) MOVEMENT 
C EAN (603) © KINEMATIC FIR ACJ) 
DV(PASeMmleee tS, IB) SROSTIP(M, J, IAV@A0SI7PE(M, 5,18) 
5680 CONTINUE 
C EQN (6e4) © KINEMATIC FOR AU 
Dv(PAUEM, TB)SROSTA2P(M,2, 1B) PENSIIP(M, 1B) eA0S15P(M, 1A) 
C EQN (60S) & KINEMATIC FOR AS 
DV(PAS4M,ITRISEROSTAP(M,1,TRIMEOSIAP(M,1B) A051 6P (4,18) 
5690 CONTINUE 


Cc 
C GiF MOVEMENT 
C EQN (666) © GIF1 DEMAND FUNCTION 
DOCOIPCL,IBISCOSOSX(IB)*(CVOGO0IX(CI,IB)=v(PGIF 41, IR) )eROG0PX(IB) (FO 
16010), TB)*ROECO1X=PV(PXF 41,18) )+C06003X(1,1B8)*40501P (1,18) 
DD 5700 1=2,IF 
C EQN (687) © GIF2 GIF3 DEMAND FUNCTION 
DOGOIPCT,IBISCOSOSX(IB)&(VOGOIXCI,IB)eV(PGIF +1, 1B) eR0602K (TRI (FO 
LHOVXCT TAD ®DVCPXFE +) ,-TBISOVIPXF 43,138) ¢CO603X(T,18) *A0S01PCI,18) 
5700 CONTINUE 
NO $720 151,1F 
C EQN (688) @ FLOW GF GIR TH FCT) 
ROBNIP(T,TRISROGOAXK(IRIR(VIPGIRAIBI#C1 ~OMEXP(DIVIDE(=COG0UX(IR)* 
1 SHITC(DOO01P(1T, 1B) )#D0691P (1,18) ,RO602X(TRIeV(PGIR,IR)))) & 
2 SWITECHDNGOIP(T, IR) aVCOGIF 41,138) ) 
C EQN (609) © KINEMATIC FOR GIF(T) 
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. 
/ 


Ri CSREES 2 ANN HIE ES we 


DVCPGIF 41, IRBVSRO601P(T,1T8)"A0S01P (1,18) 

NELNw2n,0 

TF(CROGOIP(I,1B),LT,9) OFLOWSR0601P(1,15) 

NAVOPGIF ST, TRISCOSSIXCIRI &(V(PGIF SLs IR MmAV(IPGIF SI, IRI SCO26IxK(TR)*® 
{ AVOPGIF eT, IRIMANSOIP(I,IRIF0FLOWeDIVIDE(CAV(PGIF 41,18), 
2 VCPGIF4¢I,1B)) 

C EQN (6=10) = G2F(I) DEMAND FUNCTION 
VOH0IPC(T,IRISV(PGIF 41,18) *COS22XK(IB) 
DNOO2P(TA-IBISCVOG0IP(I,TRB)-V(PGAF SI, 18) ) «ROONSK(IRI+COKOTX(IR)* 

1 CAOS?AIPCI,IB)+E0S21P(1,18)) 


G2F MOVEMENT 
EQN (6e11) = FLOW DF GeR TO FCI) 
ROGD2P(T,IBIEROGOSK( IR) &(V(PGAR,IB)*(1 OME XP(DIVIDE CeCO60UX(IB)* 
! SwITC(O0602P(1,18))*#D0602P(1,18)/,RO603K(1K)eV(PGAR,IR)))) = 
2 SWITC(CeDOG02P(T,1TR)I*VCPG2F 41,18) )+R20601P( IT, IR) #(COG06X(TR)* 
3 S*ITCCROGOIP (CI, IB)*V(PG2R,18) )+DIVEIX(V(PGeFtT, IB), V(PGIF 41,18 
a d)*SwITCC*R0601P(1,18))) 
C EQN fo6e12) = KINEMATIC FOR G2F (1) 
DV(CPGOF +1, TB)ERNG02P(T, IB) MF OS21FP(T, IB) eANS22P (1, TR eaNS21P (1,78) 
OFLOwS0,0 
IF (ROGMSP(T,TR)LT,0) OFLOwSR0602P(1,18) 
DAVOPGAF SIT, TRISCO25AK( IRI &(V(PGOFtI, IB) mAV(IPGOF CT, TR) eCN262xK(TR)* 
1 AVC PGF eT TRI RANS2AIPCI,IS) @(E0S2IP(T, 18) eA0522P (CI, IR)eOFLOM)® 
2 DIVIDE CAV(PGOF41,IR),V(PGQF 41,18) ) 
$720 CONTINUE 


MIAN 


C 
c G1R MOVEMENT 
C EQN (6013) = GIR KINEMATIC 
DVCPGIR, IBISROSTUP(TBIeROSOIFP(1,1B)*R0601P(2,18)-RO601P(3,I1B)= 
j AOS31P (1B) 
OFLOW=S0,0 
IFC (R0601P(1,18)4R0601P (2,18) +R0601P(3,18)),6T,0) OFLOWe 
1 RO691P(1,1B)4R0601P(2,1B8)+R0601P(3,1B) 
DAV(PGIR, IRISCO2S3K(IR)A(V(IPGIR, TB) eAV(PGIR,T2) I -CO263XK(IR)® 
{ AV(PGIR, TF) RAOSSIP(CIB)eDFLOweDIVIDECAV(PGI1R,IR),VCPGIR,IB)) 


G2R MOVEMENT 

EQN (6814) = G2R KINEMATIC 
DV(PGAR,TB)SROSTSP(TH) eRO602P(1, 1B) R0602P(2,TB)eR0G02P( 5,IR)& 
1 A0533P (IB) =40532P(18) 
NFLOWws0,0 
IF (CRO602P(1,18)#RO602P (2,78) +R0602P(3,18)),6T,9) OFLOWS | 
1 #0602P(1,1B)+R0602P(2,18)+R0602P(3,1B) 
DAV(PG28,TRISCH2A5UK(IR)#(V(PG2R, TR) MAV(PG2R,IR) eCO26UX(TR)® 
1 AV(PG2R, IR) eA0S32P7IR)@(A0S SBP(CIBIFIFLOW) MDIVIDECAV(PG2R, TR)» 
2  v¢(PGeR,1B)) 
DN $740 LeteLe 


ANAND 


M(L) MOVEMENT 

EQN (62/5) © M(L) KINEMATIC 
NVCPMS+L,IBYSROSTAP(L,ITB)eROSGIP(L»IBIPANSUOP(L,TA)HANSUSP(L,IA)@= 
1 ANS4UP(L,IB) 


aAanma 


Cc 

C L(L) MOVEMENT 

C EAN (68)6) © L(L) KINEMATIC 
DVCPL4L-IRVSROS7TOP(L, TB) @A0SUIP(L, IA) 
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DAVCPL#L, TRISCO2SSX(L, IRI #(CV(PL+Le TR) MeAVIPLeL, JR) )@CO265xX(L,IR)* 
1 AV(PL4#L, IR) eANS4IP(L, 18) 

S740 CONTINUF 
99 S760 Ms1,™R 


(3 

C B(M) MOVEMENT 

C EQN (6817) = B(M) KINEMATIC 
OV (PR4+M,18)=50,0 

5760 CONTINUE 
99 $780 [=1,IF 


GSF(I) MOVEMENT 
EQN (6#18) = GSF(T) DEMAND FUNCTION 
DOGOSPCI,IB8) = COOLIX(TBIK(VOUNIP(T, IB) eROUOLX(THI*#(FOUOIX(1, IR) &( 
{ POUO2P(T,IB))+(1,0—9FOU0IX(T,IB))*PO403P(7,718))+A0551P(1,18)) 
C EQN (6819) = FLOW OF GSR TO FCT) 
ROSLO3ZP(T,TS)FROGCO4X(IR)*V(PGSR,TBIe (1, NMEXP(eC060UX(IB)® 
{ 06030 (1,1B)/(ROO0Ux(TRI#V(PGSR,1B941,0)) )#RO601P(Ie IE) AC 
2 COFCLOX(TRBI*®SHITCH(ROGOIPCI,IR)*VCPGSR,IR) )+DIVFIXK 
BIVCIPGSF4el1,I16),V(PGIF 41,18) )*SwITCH(#R0601P(1,18))) 
C EQN (6=#20) @ GSF(I) KINEMATIC 
OVCPGSFeT,IRISROG0SP(T,IBIMENSSIP(CI+,IB)HeANSSIP(I,18) 


aaa 


GoF CT) MOVEMENT 
EQN (6925) © GoF(I) DEMAND FUNCTION 
DOBOUP(T,IB) = COB14X(TB)#(VO402P(I, 18) *eRO402K(IB)e(FOUNAX(T, IA) ¥( 
1 POGOUP(T,1B))4#(1,0"FO4N2XK(T,IB) )*POUOSP(T,18))+A0552P(1,18)) 
C EQN (6022) = FLOW OF GoR TO F(T) 
ROGNUP(T,TBISROGOSX(IB) eV(PGOR,TAI*(1,09EXP(=CO604K(IB)* 
{ DO6O4PCI,1IBI/(RO605X(1B) *V(PG6R,IB)41,0)))#R0601P (1,18) *( 
2 C0613X(IB)*SWITCH(RO601P(1,1B8)*V(PG6R,IB)) 
BOT VEIX(VCPGOF eT, IRI,VCPGIF¢I1,IB))*SwITCH(#ROG0IP(1,18))) 
C EQN (623) = GoFC(I1) KINEMATIC 
OVOPGGF EI, IBISERNGOUP(T, IR MF OSSAP(I,I1B8)=4N552°P (1,18) 
S7A0 CONTINUE 
C 
€ GSR MOVEMENT 
C EQN (6824) © GSR KINEMATIC 
DV(PG5R, TB) SRO576P(TR)=-R0603P (1,18) 
1-R1603P(2,1B8)=R0603P(3,18) =A0561P (18) 
P-A05S63P (IB) 


on on a) 


C 

C G62 MOVEMENT 

C FAN (6=25) = GER KINEMATIC 
DV(PG6R,IRYSROS7T7PC( TB) =RN60UP (1,18) 
{-R0604UP(2,16)=R0604P( 3,18) =A05S62P(T8) 
CaADS5SHUP(IR) 


S MOVEMENT 
FON (6826) # S KINEMATIC 
OV(PS,TR)S"A0SU0P(TR) 
S800 CONTINUE 
60 TO 4100 
4000 CONTINUE 
C FRROR PROCESSING 
wRITE (6,600) 
STOP 2 


aarn 
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Ee Oe ee 


7000 CONTINUE 
MODFLG=,FALSE, 
IFCTIME ,GE,TEND) GO TN 7150 
IF CARS(TIME@TOUTER).LT,1,0£26) TIMESTOUTER 
IFCTIME LT, TOUTER) GO TO 7150 
*WE'RE AT A MUDIFY PNINT3 PROCESS MUDIFY CARDS 
NLINES=0 
7080 ON 7100 151,4 
IF CINDEX(I),E0,0) GO TO 7100 
IFCINDEX(T).GT,0) GO TO 7095 
KoeINDEX(T) 
IF(K,GT,20) GOTO 7094 
*MOVING A PORTION OF AIR RESDURCES BETWEEN FORWARD AND REAR BASES 
Jz={ 
IF(K,GT,10) Jz2 
TF(K,GT.10) KEKesO 
Ms2 
IF(K,GT,5) Mal 
TF(K,GT,5) KeKeS 
GN TO (7091,7094,709147092,7093),K 
7091 V(PAJEMeKe Cee, JISV(PAT+ELecuKe wt, JI RVAL(I) 4EV(PAJEMm2o eek, J) 
VCPAS+1e2eK eM, JIECI  OMVALCI) I RV(PAS+ 1 e2nkK om, J) 
69 TO 7400 
7092 V(IPAUEM, JISEV(PAUEM, J) 4+V(PAU+ SOM, J) eVAL (I) 
V(PAUSBZeM,JISE(L,OPVAL (IT) )eV(PAUS 30M, J) 
69 TQ 7100 
7093 V(PASeM,JISVIPASOM,JIFVAL(I) *V(PAS4¢3—M,J) 
V(PASH+# 3M, JIZCL, OMVALCI) )*¥VCPAS4 30%, J) 
GO TO 7100 
7094 CONTINUE 
C *CHANGING DATA POINT INTERVALS FORCE A DATA POINT NOW 
TOUT Ss TIME 
OTINER = VAL(T) 
WRITE (6,601) DTINER 
GN TO 7100 
7095 CONTINUE 
€ *#CHANGING A COEFFICIENT VALUE 
KZINDEX(1) 
IF (K,GT,780) GO Ta 7100 
XCOEF CK) = VALCTI) 
CALL LCHPTR(IH ,TITU, 30,RATE,NLINES« #55) 
IFCNLINES,EG,2) wRITE(6,208) TIME 
WRITE (6,209) K,XNAME(K),FLEMNT(K),VAL(TI) 
“IF THIS ITS A VO COEFFICIENT, ALSO RESFT THE CIRRESPAINDING V VARTABLE 
TFC(K,GT, 704) Pv(Ke704) = VALCT) 
7100 CONTINUE 
C *CHECK FOR NEXT MODIFY CARD 
READ(5,104) CARD 
TFCFOF (SS) 7110,7120 
TOUTER s TEND 
OO 7115 Jei1,4 
VaL (1 20 
G9 TO 7445 
TFCCARD(1),FO, TYPE) GO TD F140 
ARITE (6-302) CaRn 
*RITE (6,301) TYPE 
stone 


heaprchhh Laan yak e sir andiak ieee 


7140 DECNDE(7O,401,CARN(2)) T,CINDEX( IT), VALCT),1T=1,4) 
IFCT,LE,TIME) GO TO 7980 


C ewhENVE FINISHED ALL MODIFICATIONS FOR THIS TIME POINT, 
TOUTER = T 
gue “SEE IF THIS IS A MATA POINT 


7145 JFCTIME,LT,TOUT) GO TO 3000 
MONFLGS, TRUE, 
7150 CONTINUE 
(a *THIS IS A DATA POINT, wRITE OUT MIDEL STATE AND SET 
C THE NEXT DATA PO]NT 
WRITE (3) TIME, (XCOEF (CT) ,ISteNXC), CPVOET), TEi,nv), 
+(POVCI),ITES1,NDV) 
TFCTIME,GE,TEND) GON TO 8000 
TOUTESETIUTEOTINER 
TFECTOUT,GT,TEND) TOUTSTEND 
IF(MODFLG) GO TQ 3000 
GO TO 4onn 
RON0 CONTINUE 
[a END PROCESSING 
STOPY 
194 FORMAT (8A$0) 
208 FORMAT (//* PARAMETERS MODIFIED AT TIME = #,F10,5//) 
299 FORMAT (0X, ¥XCOER(e,I3,%) = *,2A10,% = &,F33,6) 
BOL FORMAT(/S/{X,SHeeeke,&e ABNVE CARN MISPLACED OR UNIDFNTIFIABLFe, 
{ SxX,*EXPECTED CARN TYPE «,A10) 
302 FORMAT (//5X,8A19) 
401 FORMAT (F{0,0,4(15,F10,0)) 
690 FORMAT(* PROCESSING FRROR«) 2 
: 601 FORMATC(LX/10X,eNEW TIME INTERVAL =e,F42,5/) 
| END | 


SE ye 


ANAAANDNAANAAANAINAAANAANANANA 


SUBROUTINE ARFTMODL(DSATE, INDEX, VAL, NXCANV,TIME,SaT2,NOV) 

ARTMODL IS THE MOMELING ROUTINE FOR THE ARTILLERY VERSION 
OF THE COMBAT TT SYSTEM, IT IS CALLED BY ARTINPT WHICH SETS UP 
THF INITIAL STATES, FLMw PARAMETERS, AND COEFFICIENTS OF THE 
VARTOUS NEPENDENCIES AMONG VARTARBLES, THE SIMULATION IS A DOUBLE LOOP 
we THE NUTER LJOP wRITES ON TAPE 3 THE VALUES OF ALL QUANTITY AND 
FLOW VARIABLES 47 PRE SET TIME INTERVALS, THE INNER LOOP IS THE 
ACTUAL INTEGRATION LOOP: IT TIME@STEPS THROUGH THE INTERVAL, 
CALLING INTEG TO INTEGRATE A SYSTEM OF ORDINARY DIFFERENTIAL 
EQUATIONS (THE FLOWS AND ATTRITION RATES), THEN SETTING THE VALUES 
OF ALL THE QUANTITY VARTARLES DEPENDENT ON THE INTEGRATED VARIASLES, 
THE INNER LOOP JUMPS OUT TO THE OUTER LOOP EACH TIME ONE OF THE 
“RITE TIME INTERVALS IS REACHED, 


THE EQUATIONS ARE DIVIDED INTO SIX MAJOR SETS3 THOSE DEALING 
WITH ATReTO*®AIR COMBAT, GROUND DEFENSE AGAINST AIR ATTACK, 
MISSILE AND AIRCRAFT ATTACKS ON GROUND TARGETS, GROUND=TO#GROUND 
INTERACTIONS, FLOWS AND ATTRITIONS, AND THE KINEMATICS OF THE 
MOVEMENTS OF FORCES, FRONTS, AND SUPPLIES, 


CUMMON /XCNEF/S C0019xK(2),00020XK(2),C0030xK(2),C0040XK(2), 
COOS0K (2,2) pCO06NK(S,2) ,CO070X(5,2),C0211%(3,7),C0212x( 3,27), 
C90213xX(3,2) CO214X( 32) »C0215K03572,2),00216X(3,5,2)- 
CO217X (3,592) CO2SIK (202) 1 C02N8EX (2,2) ,COSSSX (2,2) sC0A234X( 2,2), 
CO2BSX (24272) pCO236XK( 25542) pCO237TX( 2,52) sC02UPXK(S,2), 
C0243x(5,2) ,C0244xX(5,5,2) C0251 X(2),C0252X(2),C0253x(2), 
COPS4X (2), CO02S85X6 2,2) CO256X (502) eCO257X(5,2),C0261X(2), 

C0262x% (2) -C0263xK(2),6C0264xX(2),00265X (2,2) ,69266x(5,2), 
C0267xK(5,2),C0307K(207,2) -COS11X(2),C0512x(2,2),C0513X(2,2), 
900521x(2), C0522K(2),060523X(542) ,CO601X,C0603X(3,2),C0604X(2),00605 

#X(2),69606K(2),C0607X(2),09610X(S,2),00611X(5,2),C0612X(5,2), 
E0511 ¥ (2) pEOS12K (2) pEN513¥ (2/2) .EOSIUX(2y2) eE0S21X(2), 
FOOO1K(C3,2),F0101X(3e2) F0I02XK(2),F0103K(2),F0104X(3,2), 
FOYO5X03,2),F0106X(3,2) -FOI07TK(3,2,2) pFOLOBX(3,2,2)-F0109K(2), 
FOLLOX(S,2),FO0911X0305e2) pF 0201X(3,3,2) -F0202XK(3,3,2)4 
FO0203X(3,15,29,F9301K (2,2) 5F0302X(2,3,2), 

FO303¥ (2,372) pF NS0UX(242) ,FOS0SX(2,E) FO 30HX(2,2,2), 

TED3OTIX (2,2) pF O3OBX (2,242) 0F O309KX(3,2,2),FN3I0X(2,15,2),F0313X(2,5, 
B2d,F0312K02,35,2) ,F0402K (5,2) .F9403K(5,2),F040UX(5,5,2) 


mwmriowneoewv= 


TMNEWwWMe 


COMMON /XCORF/ FOOC1X(3,2),P0001X(3,3,2),P0002X(3,3,2), 
P0N03X(63, 3462) ,P0904X (343,22) sPOLOIX( 3,262) ,P0102X(3,2,2), 
POLN3X0 3,2) ,POLOUX(3e2),P0105X0302),P0107X63,2),P0108K (2,372), 
P0S09X(2,3,2),P0110K(5,3,2) »P0301K(2,2), 
POBO2AK (2,2) ePNB03K (2,2) sPOS0UK( 242) ,P0305SK (2,272) 2PO306X( 2-2), 
PO307TK( 2,262) 4 P0 30BX624542) PO309K (2,542) -PO3S23K( 3,202), 
PO320xK (3,202), P0325X (34242) pP03260K (3,244) pPOS27TK( 3,204), 
PO 328K (3,574) ,P0329K(3,5,4),P0U01XK(2),P0402X(5,2) ,PO04U03X(S5,2), 
PO0U0UX(5,5,2),RN001X(3,2) -20301K (2,2) ,ROUOAX(5,2), 
R05749¥(3,2),R05S72K(2),R0573K(2), ROSTUX(2),ROS7TSXK(2), 
POS7OX65,2),ROS77X(5,2) ROSTAX( 272) ,ROSTIK (2,2) -ROG01X, 
RO602X(2) 4 R060 3K (2) ROOMUX (542) ROG0SXK(S,2)-RO700K (202), 
VOS4IXC2p2) pVOSUSK (202) eVOSSIX(S rAd, VIGUIX( 3,2), VOG02K (5, 5,2) 
V0700x%(2),V0(065,2) 


wvw~—- FF OMnNoOYVEeEWV= 


COMMON /PV/ V(65,29,4V( 39,2) ,V4017600) -CO001P( 3, 3,2),C9002P(3,3,2), 
{ CONOBP (242) -COONUP( 3,7) -CO601P (342) ,D06019 (3,2) ,00602"(3,2), 
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im sana 


ES STE 


D0603P(5,3,2),90604P(5,3,2) -FOL0IP (3, $,2),F9103P(3,3,2), 
Fut05P(3,3,2),F0106P( 3,2) 6F0107P (3,2) ,F0108P(3,2),F0109P(3,2,2) 
PFOLLOP(3S,2,2),FOLL2AP( 3,152). sFOLL SPC Spo, 2d, F 0 S01P (2, 5,2), 
FOBO2P (2, 3de2d,F 93D BP( 242) pFOSNGP (2,2) ,FUS0SP (2,242) pF 0 3S06P (2-2) 
eFOSOTP(2,2,2),F 9 508P(2,15,2),F03099(2,5,2),P0101P( 3, $2), 
PO102P(3,3,2),P0103P (3, 35,2), P01 04P( 3,352) ,PUINSP( 3,2), 
PO106P(3,2),P0108P(3,2),P0110P(3,2,2),FP0111P(3,15,2),% 
PO112P(15,3,2),F0113P(3,5,2),P050IP(2,3,2),P0502P (2, 3,2), 
PU3O3SP (272) ,P0304UP (2.2) pPO0S05P(2r2,2),P0306P(2,15,2), 

PO307P (24572) ,P0402P (5,342) pPOUOSP(5, 362) ,P0N40UP(S,15,2), 
VOBOIP (2,2) ,VOSUIP (2,2) ,VOS42P (2,2) ,VOSUSP(2,2),V0546P(S,3,2), 
VOS&7P(5,2),V054RP(5,3,2),V0549P(5,2),V0550P (5,2) ,V0601P (3,2), 
V0602P(5,3,2),V0603P(5,3,2) 


CAM &§ OMPNHTMNoCWY 


COMMON /PDV/ DV(65,2),D4V(30,2),A40001P(3,2),40002P (3,2), 
A0103P(3,3,2),40102P (3, 3,2) ,401903P(3,2),A0104P(3,2),40105P (3,2) 
pAO1DOP(2,35,2) pAOINTP (2, 3,2) p AOL 08P(15,3,2),A40199P (5, 35,2), 
ADZOIP (2, 5,2),40802EP(2,3,2),40303P(2,2),A0304P (2,2), 
A030SP(6242,2),40306P (242), AN307P(2,3,2) ,A03NBP (2, 3,2), 

40 309P(2615,2),A40310P (2,542) ,40321P63,3,2),40302P(3,35,2), 
AN3232(3,2),40324P 63,2) ,40325P (3,2) ,AN326P(3,2,2),A0307P( 3, 3,2) 
140328P(3,3,2),A0329P (341562) ,40330P(3,5,2),A0401P (3,2), 
£0402P(5,3,2),40403P(5, 3,2) ,A0404UP(5,15,2),40591P (5,2), 
£0502P(5,3,2),A40593P(5,2),A0511P(3,2),40532P(3,2),A0513P (3,2), 
A0S14P(3,2),40515P (2) ,40516P(2),A0523P(3,2),40522P (3,2), 
40523P(5,3,2),A0531P (2) ,A40532P(2),A0S33P (2), A405 3UP (5,2), 
A0S40P(2),40541P (2,2) ,40542P(2,2),A05K4SP (2,2) ,ANSUUP (27,2), 
40551P(5,3,2),40561P (5,2) pA0S71P (5, 3,2) -A05S7T2P (5,2) ,405738 (5,2) 
eFOSLIP(C2]),E0512P(2),E05S21P (3,2) ,E05S1P(5,3,2),R0001P (3,2), 
ROND2P (342) +R000 326342) -ROOGUP( 3,2) ,RN00SP(2),ROS0IP (2, 3,2), 
RO302P(2,3,2),ROS0 SP (262) AROSNUP (2,2) ,RO3ZS0SP (2, 2,2) + ROS0HP (2-2), 
ROBNTP (2,242) ,R030BP (2,152) ,80309P(2,5,2),80321P(3, 3,2) 
»OP (S08) 


DNOWMOCWMW——# OBNOUVECWW 


DIMENSION RO322P(3,3,2),80323P(3,2),R032uP(3,2),R03e5P 63,2), 

{ ROZ26P (3,242), ROSCTP( 3,242) p-RO32B8P(3,15,2),R0329P(3,5,2), 

PRONGON2P (5, 3,2) -RNU03P (5,342) -ROUOUP(5,15,2) -RO5UJP( 2,2) ,RO05S7IP (3,2) 

3 gROS7AP(2),R0S73P (2) ,ROSTUP (2) »ROS75P(2),R0576P (5,2) -ROSTTP(S,2) 

4 PROSTAP (242) pROSTIP (242) pROGN1P (3,2) ,80602P (3,2) ,R0603P (5,302), 

5 RO604P (5, 3,2) 

COMMON /XINTEG/ TINC,DELT,FRROR,OTINER, TIUTER,TEND,CARD(8), ALPHA 
COMMON/DICT/PNAME (3236) sPELMNT (3236) ,SHT3,0X1,9X2,0X5, 

1 FLOWAD,QR,GF,QA 

COMMON /DICT2/ XNAME (1790) ,ELEMNT(1700) 

DIMENSION INDEX (U),VAL CU) 

DIMENSION XCOEF(CY),POVC1),PV(1),TITH(3) 

DIMENSION DISG2(4,2) 

PIMENSTON FLOWAD(5,2) 

EQUIVALENCE CXCNEF(1),CO010K(1)),CPDV01),0V(3,1)) 

EQUIVALENCE (DP(1),R93P2P(14,141)) 6 CDP (19) ,RO0323P(1,1))4(0P (25), 
ROZ2UP(1,1)), (DP (31) sROZASPCI,L)I- COP C37IARO326P CL ele lI, (DP C49 
JePO327P(144,1)9-00P661),R032RP (1,191,119), (CDP C151),RO0329P(1,1-1)) 
r(DP(1BI)-ROUOAP (3,1 +1), (CDP C211) ,RO4NSP01,1-1)),(0P(241),80404 
P(1,1419)-(0P(391),ROS4IP(1,1)),(0P(395),R0S7IPC121))- 

(DP (401),R0572P(1))- (DP (403),ROS735P (1), (DP (405), ROSTUP(1)), (DP 
(407) 690S575P(1)), (NP C499), RO576P(1,1)),(0P 0419) ,ROS7T7TPE(1,1))-6 
NP(U29),ROS7TBE( 4,136 (PP (433), ROS7TIP (1,12), (NP 0437) ,R0601P (1-1) 


No? VOWW 
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R Y,€ MP(443),RO602P(1,1)),0DP(449),R0603P(1,1,1)),00P(479),8 0604 
9 PO elak?)) 
1 oe (PV(1),V01,1)) 

DIMENSION SkT2(2) 

INTEGER PAJ,PAU,PAS,PGIF.PGIR,PG2F,PG2R, PW, PUR, PR,PRR,»~PL,PS,PM,PRB, 
1 PSR,POXF 

LOGICAL MOOFLG 

DATA FLOWAD 4 ,0UG, 1474 e000 0734 B01 4 D654 5 Sha p4On gy lOu 5419/ 

NATA PGLF/S0O/,PGI R/U, PW/US,PWR/SG/,PL/SQU/,PGOF/26/,PGAR/30/,PR/S0/ 
1 pPPRR/US/,PM/S0/,PS/S3/7,PB/5 3/7, PSB/SS/S»PAISST Sp PALS OLS yp PAS/SO62/,4 
2 PXF/SHO/» JASB/ 6 TES SS pNW/SS ap LLI OS oe MB/2/ 4 SHT3/0/ 

THE VARJABLES THAT ARE GIVEN VALUES IN THE AROVE DATA STATEMENTS 
ARE OF Two TYPES 

FLOWAD(K,I) IS THE ADDITIONAL FLOW OF WEAPON SYSTEM K, SIDE I, 
ASSOCIATED WITH THE MOVEMENT 3F GROUND FAURCES BETWEEN TRE 
REAR AND THE FRONTS, 

PGIF, PGIR, Pw, AND SO ON, ARE USED TO DERIVE THE INDICES IN 
ARRAYS V AND VO FOR THE DIFFERENT ENTITIES KEPT TRACK OF RY 
COMRAT@IT, FOR EXAMPLE, Pwel( 3KeT)4¢$ ITS THE INDEX FOR TRE 
WEAPON SYSTEM OF TYPE K AT FRONT YT, AND v(Pwe(3Ke1) 41,5) IS 
THE CURRENT NUMBER OF WEAPON SYSTEM K AT FRONT I FOR SIDE J, 
TI AVOID DUPLICATION OF EQUATIONS BELOw, THIS SORT OF NOTATION 
APPEARS INSTEAD OF HARDewITRED INDICES, THE MEANINGS OF THE 
OTHER INNICFS ARE AS FOLLOWS 

PGiFe! = GROUND FORCES IN FRONT I 


PGIR ® GROUND FORCES IN THE REAR 
PwR+ek = wEAPON SYSTEM K IN THE REAR 
PLem = LAUNCHERS FOR MISSILE M 
PGF +] = SUPPLIES IN FRONT J 
PG2R = SUPPLIES IN THE REAR 
PR+(3Ke])¢J] © ROUNDS FOR WEAPON SYSTEM K IN FRONT I 
| PRR4+K » ROUNDS FOR WEAPIN SYSTEM K IN THE REAR 
| PMem = MISSILES OF TYPE ™ 
| PS © NUCLEAR STORAGE SITES 
| PR+k = AJR BASE OF TYPE K 
, PSR+ek e REPATR STATUS DF AIR BASE K 
PAJe! e AIRCRAFT DF TYPE J 
PAG me CONVEATIDNAL AIRCRAFT LOADS 
PAS » NUCLEAR AJRORAFT LOADS 
PXF eT e COORDINATE OF THE FERA IN FRONT J 


THE FOLLOWING VARTARLES OCCUR BELOW AS THE LIMITS OF DO LOOPS 
JA = NUMBER OF AIRCRAFT TYPES 


IF = NUJMPER OF FRONTS 

Et - NUMRFR OF MISSILE TYPES 

Ma e NUMBER OF ATR BASE TYPES 
Nw = NUMRER OF wEAPON SYSTEMS 


THER VARTRLES OCCURRING IN THIS SUBROUTINE ARE 
SwT2cl) = REAL FLAG CINTAINING THE VALUE 1 OR 2, 
SeTe(l)si1 INDICATES SIDE I IS FLYING NUCLEAR 
WEAPONRY, 


AADADAARAAAAANMANASAAANDADAARMAAAAAANIAANAAIANAARNAANADANANARAAAAA 


Sw = LOGICAL FLAG CAUSES INTEGRATION SUMMARY TD BF 
| PRINTED 

! NDEN © COUNTER FIR THE NUMBER OF INTEGRATION STEPS 
PFREQRMEN SINCE THE LAST TIME HISTORY OUTPUT, 
| KK J * VALUE OF THE CPU CLOCK 
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OAOAMAAHnM 


(s 


Naan 


1190 


1110 


1200 


1250 
1260 


3900 


ALPHA © OVERALL TARGET ACQUISITIIDN ADJUSTMENT FACTOR 


18,1R © INTEGER FLAG MOLDING EITHER 1 UR 2, USEN TO 
OFFEINE WHICH PLAYER'S VALUES ARE REITING USED, 
1R = %-IR 
TOUT = TIME OF THE NEXT ENTRY TO THE TIME HISTORY FILE, 
TOUTER e TIME OF THE NEXT USER MODIFICATION TO THE DATA 
BASF, 
DTINER » TIME STEP TO TOUT, 
TEND = MOMEL RUN END TIME, 
DATA NORDER/I9SO/,NCOMOD/65/ 
DATA TYPE /10HMODIFY / 


NATTA TITO/LORMIDIFIED C,IORDEFFICIENT, 104 VALUES / 


PRINT } 

FORMAT ({He) 

IFCTIME,GT.0.9) GO TN 3260 

TIMESABS(TIME) 

INITIALIZE STATE VECTOR 

HO) peo Teitee 

DA 1100 J=i,NEOMaD 

V(JeoT) = VOCJ,T) 

CONTINUE 

IRsJ 

TR=3eIR 

SETUP JF NA POOL 

AV(PGIF 41, IBJEVCPGIF 43, IR)*#CO010K(I18) 
AV(PG1F42,IR)EV(PCGIF42,IR)eCOOL0X(IB) 
AV(PGIF 43, IT B)SV(PGIF4+3,IRI*COOL0OX(IA) 
AV(PG2F 41, IR EV(PGOF41,7R) *eC0020K (18) 
AV(PG2F4¢2,1B)sv(PG2F4P,1R)*#CON20K( IB) 
AV(PGPF 43, 1B SV(PG2F4+3,IRI#CO020X(16) 
AV(PGIR,THIEVCPGIR,TR)*CONS0X( IB) 
AV(PGAR,TRIEV(PG2R,IR)*COO40X(IB) 

99 11410 KS1,Nw 

AV(PW4 BekKe?, TB) SV(PwWeseke2,IR)*CO060X(K,I1B) 
AV(Pwe sake} ,TBVEV(Pwe takes ,IR)*CO060X(K,IB) 
AV(PwedeK ,ITB)SEV(PwedekK ,TR)*CO0-OX(K,I1B) 
AV(PWREekK, TS)EV(PWREK,TR)*CONTOX(K,IB) 
CONTINYE 
AV(PL@1,TBISVCPL41,7R)*CO050X(1,18) 
AV(PL4#2,TAR)EV(PL42,IR)*C0050X(2,18) 
CONTINUE 

DN 1250 J=1,NDV 

PDOV(I)=0,0 

CONTINUE 
WRITE OUT THE INITIAL DATA POINT TO THE NUTPUT TAPE 
WRITE C3) TIMED CXCOEF CTI «Tete NXC)oCOVIT),TEteNV)-CPOV(T),ITE1,NDV), 
| SwT2(1)/,SWT2(2) 

HSTIME 

TOUTSOTINERS TIME 

AY=sQ2=2 

CONTINUE 


OQUTER LOOP PROCESSING BEGINS 


INTEGRATION LOOP 
TLIM = AMINE (TING, DTINER/2,9) 
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AIAN 


OY = DELT 
JUMP = ef 
SwT2(y)eQ1 
S&T2(2)sN22 
4000 CONTINUE 


INNER LOOP PROCESSING BEGINS 


Q1s0221 

IF CC V(PAS,1),.LT,VO7TOOX(1)*#V0(PA5,1)),9R, (V(PA5,1),LE,0,0),08, 
1 (VO(PA5,1),.LE,0,9)) Al1=2 

LE COVOPAS 2) LT, VOTONK(2) RVO(PA5,2)) ORG (V(PAS 2) LE De I) _ IRy 
{ (V0(PA5,2),LE,0,0)) B2z2 

IFCOVOPGIF +151) +V(PGIF Feo) eV CPGIF 3,13 LE sO, 0),0R,(VIPGIF+1,2)+ 
} VCPGIF 42,2) 4¢V(PG1F 43,2) LE, 6e0)) STUPS 

IFC COYNE ,Sw¥T2(1)),9R, (02,NE,SWT2(2))) GN TD 3000 
DTINER2SA4MINI (TOUTER, TOUT) e TIME 

IF CDOTINERE,LTADELT) ATINER@SDELT 

CALL SECOND(xKJ) 

TFE(S*T3,EQ,1) 4RITE(6,1945) TIME, TOUTER, TIUT,XKIZNDED 
TIMESTIME¢DTINERO 

1945 FORMAT (OX,SHTIMES,FR,2,5X,12HNEXT CHANGE =,FB,2,5X, 

1 YOHNEXT DATA POINTS,FR,2/11X,10HCPU TATALE,FB8,4,5X, 
2 PeHMERS IN LAST INTERVALS,IS/) 

NDF Q=0 

4100 CONTINUE 

NDEVQESENDFEFQ 4] 

FMAX = EPROR 

EMIN = EMAX/J100, 

CONV = EMIN/I00, 


PERFORM THE INTEGRATION 


CALL INTEGCOV,4,TIME,TLIM,V,EMAX,EMIN,NORDER, OT,CONV, JUMP) 
RESTSICT COMYONITIES TO NONe@NEGATIVE VALUES 
0 5015 Jsl,2 
IF CVOCPGIF +1 ,JIFVO(PGIF eee JIFVO(CPGIF Se 3, SI 4VOCPGIR», JIFRUS7TYX(IJ),LT, 
{ OL) VOPGIF 41, JISVCPGIF ee, JISVCPGIF O38, J) Sv(PGIR,J)=0,0 
TF CVOCPGOF ei, JS) HVO(PG2F ee, JI+FVOCPGOF eS, J) + VOC PGAR, J) #ROS7TSX(JI LT, 
1 001) VOPGAFS{,JISVCPGAFe2, J) sv(PGPF 43, J) Sv(PGAR,J)=0,9 
NM 4050 K=S1,NW 
TF (VOC PWe BeKO 2, JEVO(PWH SeKml ,JIFEVO(PWe SeK, JIEVO(PWREK, J) + 
1 ROSTOP (Ke J) LE gg 01) VOPK+3eKe 2, JISV(PHeseKel,JIEV(Pwe3eK, J)= 
2 V(PwRek,J)=0,0 
TF (VOCPR4 Bake 2, JT) FeVO(PREeSukKaf,S)eVO(PRe Sek, JI EVOCPRR+K, J) + 
i] ROSTIP(K, J) sLEgg01) VIPR+3eKer, JIEV(PRedaka{,JISV(PRe Bek, J)= 
2 V(PRR+K,J)=0,0 
UO0SO CONTINUE 
O93 60S “=Ei,2 
IFC VOC PMOM, JI4ROSTAK(M, J) LT,,01) VEPMeM, JIE 
IF CVOCPLEM, JI F20579OX(MN, JI LT.,01) VIPLeM, JIE 
4051 CONTINUE 
b) 4052 751,53 
IF (VOC PAS+I ,JIFROSTIXCT, SILT el) VCPAJEI, J) 50,0 
4OS2 CONTINUE 
IFC VOCPAG,JVERNSTAX(C JI LT, 11) VEPAU,JISN,O 
TF (VO(CPAS,S)¢ROS7T3X(J)LT..01) VECPAS,J)50,0 
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no $005 r=s1,30 

5005 TRCAV(T,J)LT.0,6) AV(I,J)20,9 
ON 5015 YTet.,4e 

SOPs FREEVGCR.0) ETO, 0) WET. 250.0 
TF (JUMP) 6900,5000,7000 

S000 CONTINUE 

€ CALCULATE COEFFICIENTS AND KINEMATIC EQUATIONS 
9) S049 IK=1,2 
JR=3=-7R 

Co RR ERR RAE RARER EERE KEE REE EEE E 
FIRST EQUATION SET 


C 
C 
ce AA(T) VERSUS AAJ) 
c 
€ 


*EQN Cief) = SBM) KINEMATIC 
Dik SO? “Sees 
QXLSECLROSOTPHCALM,TRIFROZOTOE(CO]Y,IRIIACO3ZNTX(M, 1, TR) 
1 +ROZCTE(ILM,TR)&SORT(1 OMPOLOSP(1,7T8))#SIRT(1,0=P0S09X%(%,1,7R)) 
2 SCOZOCTX(M,2,TR)+(ROZ2A7TE( 2,4, 12) @#SORT( 1, 09P0105P (2,718) )*SGRT ( 
3 1,MePOLO9K (4,2, TRIVEROS2TPH( 3,4, TRIRSORT( 1 De PNIOSP( 3,18) )*#SART( 
a 1,0=9P0109%(™,3,18)))*COS07X(4,SwTACTR),IR)) 
OVC PSHE, IBISENIVIDE(QX1, VC PBEM, 18) )PROTOOX(M, 1&8) *eSHITOC(V(PS64M,7&) 
{ ) 
eEQN (Jet) = DEGRADATION FACTOR AT B(M) 
COHOSP(M,TRYZEXP( mV (PS644,18)) 
S017 CONTINUE 
(s -*FAN (fefR) = ACT) LAUNCH RATE DEGRADATION 
99 5018 Jsi,JA 
COOO4P(J,I8) = FOS09X(J,1,I1R)*C0003P(1,18) 
14¢FN309X(J,2,T6)"C0003P(2,18) 
5018 CONTINUE 
C *EQN (1=1C) = TOTAL ACT) LAUNCH RATE 
ROOOIPCL,-IRISRONOOIX(Y,TRI*VCPAT4e1,18) eSwITCH(V(PAL,J8))* 
1co0d004P(1,TR) 
NEeeSuTec[R) 
( L&UNCH AQ AND 43 
POONIP(CA,TBIEROONIX(2, TB) ev(PAJ¢2, 1B) eSWITCH(V(PAU4N,7R))®& 
1CON04P (2,18) 
ROQMOIP (3, TB)ERAODOLX(3, 1B) eVCPA I+ $e TA) eSAITONH(V(PAUEeN, TR) )® 
1€0904P(3,7) 
09 5030 Jsi,JA 


n 


C *FON (f"2) |= AACT) LAUNCH RATE 
RONOAP(T,15) = RODOIP(T,TB)*(1,0°F0001K(1,78)) 
C FON ($23) © ACEI) LAUNCH RATE 


ROGO3P(1,1%&) = RAANIP(T, TR) #FOOOIXCI,IA) 
5930 CONTINUE 
& #EQh C1eu) © TOTAL LAUNCH VATE FOR ALL AJRCRAFT 
ROONSP(TR) = FONNIP(1,I1R8)*2®0001P(2,18)+R0003P( 3,18) 
S040 CONTINUE 
M1 5120 TREi,e 
1R=3=1R 
Dr S100 Jei,JA 
N71 5060 Tsi,J4 
C EQ" C{eS) SINGLE SHOT MISS PRORAKILITY FOR AAT) vS, AAJ) 
CONMOIP(T,T-IR) = 1e9@POOOIX( Te Je IR) #P9002K(I, J, IR) 
5069 CONTINUE 
C eF ON (Jeb) © DIRECT ATTRITIIN FOR AA VS, AACS) 
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AQQOOIPCI,TE) & RONDPF(J-TRI (1, 0eCOO0IP (1, J,18eeOIVIDECRONN2P(S,] 


$ R)pFOOOSPCISII#COIOIP (2, J, TH) eeDIVIOE (CROONAP (2,18), 
$ RNDOSP(TB)I*COO0IP(3,J,1B) ee DIVIDE (RO002P(S,JR),RON 
§& OSP(1B))) 


nn 


AA(CT) VS, 4600) 
DA SORO I1s1,JA 
C *EQN (1"7) = SINGLE SHOT “ISS PROBABILITY FOR 4A(1) VS, AGES) 
CONOAP(T,J,IF) = 1, 0ePON03XCT,J,IRI*PONO4X(I,J,IR) 
S080 CONTINUE 
€ *EQN (1eR) = ATTRITION MF AA VS, AG(J) 
ANDNOAP(S,IBISRONONSP( J, TB)*Ci Ce COO02P(1, J, Ib) eeNIVIDECROD0CP (1,12) 
1 ,ROGOSP(TR))*COO00PP (2, J,TRIYeeNIVIDE(ROON2P(2,1R),ROOCSP(IR)) 
2 eCON002P(3,Js TR) ee DOITVIDE(ROON02P(3,1R),RO005SP(IB8))) 
C *FQN (129) = SURVIVAL RATE FOR AG(J) 
ROOOSP(I,TH) = RONNSPCJ,TR)=40002P (3,18) 
5100 CONTINUE 
S120 CONTINUE 
N17 $220 JKE1,2 
TRES=-78 
D9 $290 Jsi,JA 
DM S140 Jsi,IF 


EERE REE KER KEK RE KERR KEE KEKE KKK ERK KK REE REAK RK ERE KEKE EKKEKEKKEE 
SECOND EQUATION SET 
GROLIND DEFENSES AGAINST AGCJ) 


GIF DEFENSE 
#EQN (2"$) | FRACTIONAL ALLOCATION OF AFCJ) TO FRONT I 
QX1SANUOIP(1,TR)+A0UN1P (2, 1B) +h40401P(3,138) 
FOLOLP(J,-I-IRISEDIVINECAN4OIP(I,18),0Xx1) 
‘a *FQN (282?) = ACQUISITION FACTOR FOR AG(J) VS, GIFCI) 
POLOIP(S,T-IR VSI ,OPEXP(MALPHARCO2IIX( J, TR) eAVOCPGIFS],16)) 
€ *EON C2—3) = ACQUISITION FACTOR FOR AG(J) VS, G2FC(T) 
AKVSAMAXI(VIPGOF SI, TRI eCOSAILXCIR) *VEPGIFSI,IR1,0,0) 
DISGOCT, IR )YSECIVIDE (Gxi1,VCPGAF4I,IR)) 
POLOCP(CS, T+ TB) S1, OME XPleALPHARCOAILCX( J, IB e#DISGO(T, IR*eAV(PGOF +], 
1 TR)) 
C *EQN (284) © ACQUISTION FACTOR FOR AC JIG VS, *(K)F(T) 
DO Si25 Keji,%Niw 
No3Bexe(Kej jel! 
POLLIP(C ION, TE) 21 OMEXP(PALPHARCO2LOX(J,Ke- IB) eAV(PW4N, IB) ) 
5125 CONTINUE 


ANNMNAANN 


(s eFON (2085) © FRACTIONAL ALLOCATION OF AIR RATTLE SURVIVORS TO GiF (I) 
FOUNBP(J,TeIRVSFOLOIX( I, TRI*FFOLOIP(J,T,18)*F O20YX(I,71,18) 
C *EQN (286) © KILL PRORARILITY FOR GIF(T) AD AGAINST AGCJ) 
POLTOSPC Ts Je TH) = 1,0 (1, OmPOLO3X( J AIR) ee (FOPNAXC(TIR) ev (PCIFe],IR)) 
C *EQON (2987) © DIRECT ATTRITION FOR GIFC(T) VS, AG(J) 
AQLOIPCIT,Jp/IB) = RNOOUP(J,TIVXFOLOSPCJ,T-TRIH (1,09 (3, OMPOLNSP(I,J, 
| GS TP) ) (1, OMPOL0LP (Je, Te IB) ePO1NUX(J,1R))) 
C 
C GeF NEFENSE 
(s 
¢ *EQN (289) © FRACTIONAL ALLOCATION JF AIR BATTLE SURVIVORS TO GeFC(T) 


FOIYOSE(J,T,IRIVSFOLOIX(C Jp IB) RF OLOIP CJ, T, IB) *eFO0202XK(3,7,78) 
*E IN (2e10) = KILL PROBABILITY FOR G2F(T) AD AGAINST AG(J) 
POYOUP(T, Je TRIEL 0861, OMPOINSX(J,ITR) ew FOIOSX( IR) eNISGA(T,TR)*® 


a 
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‘ V(PG2F41,18)) 
C WEQN Ceei}1) © DIRECT ATTRITION FIR G2FI ON AF(J) 
SOL02P(TeJe,IK) = RODOOUP(J,IBIeFOLOSPC J, 1, IR) # (10H (1 ,NePO1O4UP(I, J, 
} TRY) #(1,0"P0102P( 5,1, 1B) *P0165x(J,1R))) 


C 
€ wW(KYF DEFENSE 
€ 
9 S130 K=s1,Nw 
N= Se(kKej del] 
C #EQN (2041,54) @ FRACTIONAL ALLOCATION OF AIR BATTLE SURVIVORS TO w(K)F 
FOLLAPC ISN, TBISFOLOIXC IS, IBV #FOLOIP(J,T, 18) #FO203K(J,Ne IR) 
C *EON C2—91,58) = KILL PROBABILITY FIR wlKIF CT) AGAINST A(J)G 
POLLAP(N, J, IRIEL, OM (1 OePOLO SKC J, IR) ee CFOLLOX(K, TR) eV (PHeN, IR) ) 
[2 ®EQN (211,50) = DIRECT ATTRITION FOR wEKIF (I) ON AC JIGF 


AOLOBP(N, Je-IRISROOOUP(S-TA)&FOLI2P(JeNe TB) *(1,09(1,08 

{ POYLAP(N, JeTRV HCL OMPOLLIECI,N, IR) ePOLINX (Ke J,IR))) 
5130 CANTINUE 
5140 CONTINUE 


id 
c G1R DEFENSE 
€ 
q Cc wEQN Comi2) = KILL PROBABILITY FOR REAR AGAINST AG(J) 
POLOSPOS,IR) = 1,0— (1 OMPOIOSX(T, IR) wm tENIOOX (IR) e(V(PGIF Se! ,TR) eV 
$ (PG{F42,1TR)+V(PGIF4+3,1R))/3,) 
c eEQGN (2013) © FRACTIONAL ALLOCATJIIN OF ATR BATTLE SURVIVORS TH GIR 
FOLOGP(CJ,ISIE (1,0"FO101X(J,18))#FOLOuUX(S,18) 
¢ *EQN (2014) = ACQUISITION FACTIR FOR AGR(J) AGAINST G1 
POLNOP(S,IBIE1, OFEXP(mALPHARCO21 3K(Jp, IR) eAV(PGIR, 1B) ) 
c fEQN (2015) © DIRECT ATTRITION FOR GIR AGAINST AG(J) 
ANIOSP(J,TKH) = ROONUP (J, IB *FOL0OP(JeIB)w(1,09(1,0"P010SP(J,IR) #0 
$ 1,02P0196P(J,IB)*P0104Ux(J,1R))) 
E 
C G2R DEFENSE 
E 
Cc tE ON (2e$6) FRACTIONAL ALLOCATIIN OF ATR RATTLE SURVIVORS TO G2R 


FOLOTPCJ,IF) = CI,MMFOLOIX CS, IB) ) *FO105X(J,18) 

C ®EQN COm17) » ACQUISITION FACTOR OF AG(J) AGAINST GPR 
QXLEAMAXI(VOPG2R, IR) eCOS2IX(IR)*V(PGIR,IR),0,0) 
DISG2CU,TRIEDIVIDE COX1,V(PG2R,1R)) 

POLOBPCJ,IB)E1, 9m EXP(mALPHARCO2LUXK(J,IK)eDISG2(4,1%) eAV(PGAR,T8)) 


C sEQN (2818) = DIRECT ATTRITION FOR G2R AGAINST AG(J) 

AOLO4P(CJeIB) = RODOUP(C Te TBI*FFOLOTPH CI, T BI e(1,Ge(L,OMPOL0SP(JS,1R) Jel 
$ 1,08P0108P(J,1B)*PO195X(J,IR))) 

C 

¢ w(K)R DEFENSE 

C 
09 5150 K=1,Nw 

€ *#EQN (2018,54) © FRACTIONAL ALLOCATION OF AIR BATTLE SURVIVIRS TO w(K)R 
FOLISPC IK TBISCL OMPFOLOIX(CS,1A)RFOLIIX (I,K, 1B) 

C #EQN (20{R,58) = ACQUISITION FACTIR FOR AC J)GR AVAINST w(K)R 
POVIBPC Ts Ke IBISLOSEXP (AL PHARCOAITIX(C I,K, IR) #AVv(PwReK, IB) ) 

C WEQN C2018,5C) = DIRECT ATTRITIIN FIR w(K)R AGAINST A(J)GR 


ADLNGP(K, Je IBIFROONUP( J, JB)#FOLISP(S,K,IRD #01, 0" (1,09F010SP(J,1R)) 
1 #(1,0°P 011 S20 S,K, TH) ePOLIOX(K,J,1R))) 
5150 CONTINUE 
c 
c S NEFENSE 
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C wEQN (2019) = FRACTIONAL ALLOCATION UF ATR RATTLE SURVIVORS 79 S 
FOINBP(JS,1IH) = (C1, 0"FO101X(J,I1R))*F0106xX(J,18) 

C EQN (2821) DIRECT ATTRITION FIR S AGAINST AG(J) 
AOITOSP(J,IR) = ROOOUP(J,IBI#FOLO8P(J,T8) (1, 09(1,09PO105P(J,71R)) 
1*(1,0=P0197X(J,1R))) 


C 

C LAUNCHER DEFENSE 
DO Si6ed0 LSi-tt 

Cc *EQN (2922) © FRACTIONAL ALLUCATION OF ATR BATTLE SURVIVORS TO L(L) 
FOLOOP(J,L,-IB) = C1, O0MFOL0IX(J,18))*FOL07X(J,L,I8) 

Cc RENN (2025) © ACQUISITION FACTOR FOR AG(S) AGAINST L(L) 
POLIOP(J,LeIBIEL, OPE XP(HALPHARCOOISX(J,L, IB) eAVEOPL +L, 18) ) 

C *EON (2024) = DIRECT ATTRITION FOR LOL) AGAINST AG(J) 
AOYO6P(L,J-I8) = RODOUP(S,TB8*FOIO9P(J,L,IB) (1,09 (1,0ePOINSP(J,18 

§ DI*CL ,OMPOLIOPCI,LA¢IB)*ePO1NRX( Ly Je IR))) 


$160 CONTINUE 
00 5380 “=1-*"B 


C 

C KHASE AIR DEFENSES 

C eEQN (2025) |= FRACTIONAL ALLOCATION OF AIR BATTLE SURVIVORS TU 8(¥) 
FOLIOP(I,M-TE) = (1, OF OLO1X(J,138) )#FOL08K(J,4,IR) 

C #EQN (2826) = DIRECT ATTRITION FOR 8(™) AGAINST AG(J) 


A0107°(¥,J,IR) Ss RONOOUP(J,TB)eFOLLOP(S,¥,IB)e(1,09(1 ,0=POLOSP(J,IR 
1))*(1,9=P0109X(M,J,1R1)) 
5180 CONTINUE 
S200 CONTINUE 
S220 CO'TINUE 
N9 $420 IR=1,2 
TR=3-18 
DO 5320 Li, 
SNEVCPLeL eo TRI*ROSOIK(L», IR) *SwITCH(V(PM4L,I7R)) 
Ce ee ee I IIR RR EERE RETR REE EE EEE 
C ZA FOUATTION SET 
C MISSILES VS, GROUND TARGETS 
DO S240 T=1,1F 


C 
C GiF GROUND TARGETS 
C *EON (Bet) © FRACTIONAL ALLOCATION OF L(L) AGAINST GIF(I) 


FO3ZOIP(L»T+,IRVSFOSOIX(L, IR) eFOS02X(L,I,I®8) 
1*FO3N3xK(L,I,IR) 

t wEQN (3e2) = FLOW OF MIL) FROM REAR TO GIFCT) 
POSOIP(LAT»IRP EL, OmEXP (MAL PHARCOASIX(L, TR) eAV(PGIFS4I,IR)) 
ROSOIP(L> Te TRISQQRFOSNIP(L,T,TRI*PO30IP(L,I,I12) 

C EON (383) © ATTRITION FOR M(L) AGAINST GIF(T) 
AOSO0IP(L,I-+-IBIS POSOIX(LA, IR) ®ROSOIPCLAIZIR) 


c 

C G2F GRIUND TARGETS 

€ 8EGN (3e4) = FRACTIONAL ALLOCATION OF L(L) AGAINST G2F (I) 
FORO2P(L»T»IR)EFOSOIX(L, IR) eFOSOAK(L,T,ITR#FOS1AX(L,I,IR) 

C REON (325) © FLOW OF M(L) FRIM REAR TO GeF(I) 
POS0A2P(L» Tr TIRI=HAL,0SEXP(wMALPHARCO232X(LAIR) *DISGA(IT,IB)*eAV(PGAF el, 

1 IR)) 

ROSNAPL(L, TATRISQNRENZNOP(L-T,IR) #PO302°(L, 1,18) 

C *EQN (326) © ATTRITION FOR “(L) AGAINST GeF(I1) 


AD302P(LeT»TRIES POZ02K(L»TR)#ROSOCP(L,I,IR) 
99 5230 KE1,Nw 
Ns Be(Kejf je] 
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w(KIF GROUND TARGETS 
*EQN (3~6,54) © FRACTIONAL ALLOCATION OF LOCLIF CI) AGAINST w(K)F CT) 
FOSORE (LIN, IRISFOSOIX(L A TRIRFOSOAX(LAT» TID eFOSLOXK(L,N, IR) 
(8 #EQN (306,58) = FLOW IF M(L) FROM REAR TN w(K)F(T) 
POZNGP(L»Ne TRI E1 OME XP COeALPHARCO23SHX(L AK, IR) AV (PH4tNn, TR) ) 
ROZOBP(LINe TRISOQHFOSOBP(L»Ne IR) &PUS06P(L Ne IR) 
€ EAN (386,5C) © ATTRITION FOR M(L) AGAINST #(K)FCT) 
AD3SO09P(L IN, TRISPO3ZOBK (Ls, Ks IR) #ROSOBP(L,N,IR) 
5230 CONTINUE 
S240 CONTINUE 


yaaa 


Gi8 GROUND TARGETS 
wEQN (3e7) @ FRACTIONAL ALLOCATION OF LCL) TO GIR 
FOSOSP(L,IRIES (1, 0=FOROIX(L,IR) )eFOSOUX(L,IR) 

C *EQN (308) = FLOW OF “(L) FROM REAR TO G1R 
POBZOSP(LATRIAL, OME XO (mALPHASCOSZSX(L,IR) *AV(PGIR,IR)) 
ROTOBSP(L A TRIFQNQKFOBNSP(L,TRI*#PO3ZOSP (LAIR) 

C WENN (329) | ATTRITION OF MCL) AGAINST GIR 

ANOSOSP(L,TB)IEPOSNSXIL,IRY*RROBNOSP(L,IR) 


AIAN 


C 

Cc G2R GROUND TARGETS 

C #FQON (301%) = FRACTIONAL ALLOCATION OF LCL) T3 GR 
FOSOUP(L, IRIE (1, 0HFO301X(L,TR))#FO305X(L, IR) 

c #FGN (Bett) = FLOW MF M(L) FROM REAR TO GAR 


PO SOUP (LATRIZAL,OMEXP(mALPHARCOCSYX(L,IRIROISGA(4,ITR)*eAV(PG2R,IR)) 
ROZOUP(L, TRI=ZQQKFOZOUGP(L,T&2)*PO3Z04UP(L,IR) 
E *EQN (3812) © ATTRITION OF M(L) AGAINST Ge2R 
ANBOUP(L, T&S PNBNUX(L,TR)*ROZOUP(L,IR) 
DD S2S0 K=1,Nw 


w(KJR GROUND TARGETS 
*EQN (3912,54) = FRACTIONAL ALLICATION OF LO(LIR AGAINST W(KIR 
FOSNOP(L,K,TRIZE(CL ,OMSFOSOIX(L,TRIIEFOSLIXCL KK, IR) 
(a EQN (3e12,5R) © FLOW MF M(L) FROM REAR TO wK(KIR 
POZNTP(L KsIRIZ1L, OPE XP(MALPHARCO237TX(L AK, IR) eAV(PHwRekK,IR)) 
RNZOOP (LK, IRISVOXFOSZONGP(L,K, IR) #POSOTP(L,K,TR) 
C *FON (3"12,5C) = ATTRITION FOR M(L) AGAINST w(K)R 
AOSIOP(L, Ke ITBIEPO309X( Le Kp IRIKROS09GP (LAK, IR) 
5250 CONTINUE 
D0 5260 KSi,Lb 


CV TUE 


ey CV 


LOK) GROUND TARGETS 

in *EQN (313) © FRACTIDNAL ALLOCATION OF MEL) AGAINST L(K) 
FOSOSP(L Ke, ITRIECIL OF OSOIXK(L,IR)) 
1*FO306X(L,K,IR) 

G EQN (3e1d) © FLOW NF MCL) FROM REAR TO L(K) 
POBSOSP(L,K, IRIEL, 0eEXPCRALPHARCO235K(LyK, TR) eAV(PL4K,IR)) 
ROZOSP(L Ks, TRISQQKFOSOSP(L,K,IRI*POSOSP(L,K,IR) 

Cc *EQN (3e15) © ATTRITION OF M(L) AGAINST L(K) 
ANSOSP(L, Ke» IBIS POZNSX(L»>K+TR)*ROZOSP(L,K,IR) 

$260 CONTINUE 


E 

C S GROUND TARGETS 

€ *EQN C316) © FRACTIONAL ALLOCATION OF L(L) TO S 
FOSHOP(L,ITR) = CL gDeFNIOIXCL AIR KFOSOTXIL, IR) 

G #EQN (3017) = FLOW OF 4(L) FROM REAR TOS 
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RNZDHP(L,TRISQI#HFOZNEP(L, IR) 

e *EQGN (3etR) |= ATTRITION OF “(L) AGAINST S 
ANSOOP(L,ISISPO3ZNOX(LAIRI*ROS0OP(L,TR)*SaHITCH(vV(PS,18)) 
09 S280 Ms{,8 


aa 


AC“) GROUND TARGETS 

€ *EQN (3219) = FRACTIONAL ALLOCATION OF LCL) AGAINST B(M) 
FOSOTP(LM,TRIECL  OPFOSOIK(L,TR)) 

1*FOSOBX(L,M,IR) 


Cc *EQN (320) = FLOW OF M(L) TO RCM) 
ROZOTP(LIMsTRISQN#FOSNTPCL MAIRI*NIVIDE(V(PRe4,1828),V0(PReM, JA) ) 
C eEAN (C3m21) | TOTAL AIRCRAFT IN B(™) 


VO3ZONIP(M,IR)SFO3ZO9XK(1 Mz IB) aV(CPAJF1, IB) +FO03N9K(2,4,T RB) eV (PAJe2,18) 
{ +FO0309K(3,4%,IBIeV(PAJ+3,I8) 

S280 CONTINUE 
07 5300 J=si,J4 

C eF ON (3023) © ATTRITION FOR M(L) AGAINST AB(J,1) 
QXISFOSOOX( J, 1+,T8I*V(PAJ+J, 7B) *#0,9 
AON3Z07P(L,J,I8) = ROZOTP(L»L,IRI*RPOZO7TX(L,1,71R) 

4 *#NTIVIDECQXI, VCP Re1,1B)) 
S*¥SaITCH(v(P841,78)) 

C KREWN (3e2u) = ATTRITTON FOR M(L) AGAINST ARC J,2) 
QXLSFO3ZN9X(I,2, TRI eV(PAJ+¢J,3189%"0,9 
ANZO06P(L,J-I8) = ROZSOTP(L,2,1TR)#POZ07X(L,2,1R) 

1 eNIVIDE (QX1,V(PR4+2,18)) 
PeSwITCH(V(P842,18)) 

S300 CONTINUE 

5370 CONTINUE ; 
NO 5400 J=i,JA 

G 

Coe ke ee RO KK RRR KKK KK EKA RKEKEKEN EE KERR 

C 38 EQUATION SET 

Cc AJRCRAFT VS, GROUND TARGETS 
09 5340 121,I1F 


C 

€ AG(J) vS, GIF CT) 

€ eEQN (3025) © ATTRITION OF AG(J) AGAINST GIF C(I) 
ROS2IP(J,I-IR) = RONOUP(CT,IRI*FOI03°(CI,I,I2) 
AO0321PC3,1,18) = ROZ21PCI,1,1R) 
1*SORTCY, OPPOL0SP(1,5,71B))ePO101P(J,1,712) 
2eSORT CL, O=POLONX(J,IRIV)*POLOLXCI,SwT2CIR),IR) 


C AG(J) VS, G2FCT) 

€ kEQN (3826) © ATTRITION OF AG(J) AGAINST G2F(T) 
ROZ22P(J,I,IR) = RONNUP(J, TR) eFOLOSP(S,I,IR) 
ANZ22P(J,I,18) = RN3Z22P(J,1,I1R) 
1*xSART(1,0"P0104P(1,5,TB))*P0102P(J,1,71R) 
PeSORT(L, OMPOLOSX(J,TR))*POIN2XCI,SwTecIR), IR) 
DO 5330 kK=1,Nw 
Ne3e( Ke} )+] 


AC JIG vS, WC(KIF(T) 

eEQN (3e26,53 = ATTRITION OF AC JIG AGAINST W(K)F(T) 
ROZCBP(SsNe-IRISROOOUE (Sp IRIMFOLIL2P(JeN, TR) 

ADZPOP (Ise, IT BIERO SCRE (JAN, IR) *SORT(1,0"P0112P(N,J,18))* 
{ POLLIPCTeNeTRIRSQRTCL, OMPPOLIOX(K,J,3B))* 
2 POB2RK(C I sKe2e(TRef Se+SwtectR)) 


Anan 
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aOnNn AOD 


an 


C 
C 
is 


oan 


anNM 


5339 
5340 


5350 


5360 


5370 


CONTINUE 
CONTINUE 


AG(J) VS, GIR 
&FQN (3027) © ATTRITION OF AGCJ) AGAINST GIR 
RO$23P(S,TR) = ROOOUP( J, IR) &FO106P(J,TR) 
A0323P(J,18) = RO323P(J,IR) 
1*SQRTC1,08P0105P(J,1R))#P0106P (3,12) 
2eSORT(1,9=POL04¥(S,IR)) HPOS23K(J,SHT2CIR),IR) 


AG(J) VS, GaR 

eEQN (3828) & ATTRITION OF AG(1) AGAINST G2R 
ROZ2A4UP(J,IR) = RONNUP(CS,IRIHFOLOTPCJ,IR) 
AQ324P(J,TH) = ROZQUP(J,IR) 
1*SART(1,0PO1L05P(J,1R))*P010BP(J,IR) 
2xeSORT(L,OMPPOLOSX(S,IR))*PO3S24K(J,SHT2CIR),IR) 
DN 5350 KE1,Nw 


A( JIG vS, w(K)R 

EQN (3a 26,5) © ATTRITION OF AC J)G AGAINST w(K)R 
ROZ29P(J,kK-TRISROONGE(J,IR)eFOLI13P(J,K,IR) 

ANZZ0P CJ, Ke TB) ERO32C9OP(S,Ke IR) *#SORT(1,0"P9105°(5,1B))* 
{ POLILSP(J,Ke IB) *SOIRT(1L,9PPOLIOX(CK,J,IBR))* 
2 POSPOX(JsKpee(TRef{)+S4TA(IR)) 

CONTINUE 


AG(J) vS, S$ 

*EQN (3829) @ ATTRITION OF AG(J) AGAINST § 

ROZ25P(J,IR) = ROOOUP(J,IR)*FOLOBP(J,IR) 

ANZ25P(J,78) = ROZ25P(J,IR)*SART(1,0=P0105P(J,78)) 
2eSARTEC1,O=POLOTX( J, IB) )#PNS25X(J,SHT2(IRI,IRY*SWITCH(V(PS41,18)) 
NO $360 L21,LL 


AGCEY VS. Ethd 

*EQN (35830) © ATTRITION OF AG(J) AGAINST LCL) 
RO3ZS26P(Js,Le-IR) = RONOUP(J,IR)#*FOLO9P(J,L,IR) 
ANZ26P(J,L,IR) & ROZ26P(JeL,IR) 

1*SQRTC1, 9=—POL05P( 5,78) *POLI OPC I,L,IR) 
2eSART(1, 0@POLOBX(L,J,18)) wPOS26X(Sp,L,(SHTACTRIF(ITRel)*2)) 
CONTINUE 

DN $370 “=1,M8 
ROZ2IP(S»MepIRISROOOUPCS,IRI®FFOLLOP(S,M,IR) 
CONTINUE 

PO §3R0 JT=4,JA 


AG(J) VS, RCM) 

*EQN (3e31) = ATTRITION OF AG(J) AGAINST 8(1) 
QAXLSFO3ZO9OX(CIT,1,IB) xv(PAJ+I1,18)*0,9 
AOS27P(Je,I,IB) = ROZ27TP(J,1,1R) 

1*SQPT(1,90=PO105P(J,1R))*#SORT(1,0"9P0109K(1,3-18)) 

2ePONZ27KX( Tp, 1, (SWHTACTRI4+(TRej)e2)) 

3 #NIVINE (OX1,V(P841,18)) 

*EQN (3032) = ATTRITION OF AG(J) AGAINST &(2) 
QXLSFO3O9OX(T»,2, TR) eV(PAJ+T,18)#0,9 
ANZ2RP(I,7,18) = ROZ27TP(J,2,1R) 

1*eSQRT(1 O@FO1O0SP(J,IR))*SORT(1,0eF0109K(2,J3-18)) 

2ePOS27X(Jr2, (SwT2(IR+(TR91 )#2)) 
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3 eNT VIDE (COX, V(PR4+2,18)) 
S3A0 CONTINUE 
S4no0 CONTINUE 
S420 CONTINUE 
09 5460 JRF1,2 
TR=30eT8 
MN S54eo0 Joi, ]F 
CR Ra RRR RK RRR ER RRR RRR RRA RRR 
FOURTH EQUATION SET 
GRUUND TO GROUND Tt TERACTIINS 


GLE VS. GLE 
KFON (Um 1) ATTRITION FOR GIF(IT) AGAINST GIF (I) 
AD4GNIPCT, TR)SPOGOLXCIRI (CL OMEXP (6,9 KV(PGOF EIT, IRI /SVCPGIF 41,12) )) 
1 eV(PGIF4T,1IR) 
AQGOIP(T,IBIEAMINI (CADNGNIPCI,J8),vCPGIF 41,16) ) 

€ *F Qt (de 9G) e@ ATTRITION FOR GoF CI) AGAINST GeF(I) 

NM S&4so koi,Nw 

} NoBe(Kej jel 


€ 
€ 
c 
€ 
C 


wlkK) vS, Gi 

C ®EQN (Ue?) = FLOW DF RCKIFCIT) FROM FCI) AGAINST GIF CT) 
POGO2P(K,T,IRJEL,0=EXP(MALPHARCOQUOX(K, TR) RAV(PGIF4),IR)) 
ROUNCP(K,T,IRISEV(PW4N, TRI RROUOEX(K, IR) wFOUNCK(K,IR)® 
1 SWITCH(V(PREN, IRD) ePNU02P(K,J,I2) 

C ekEQN (463) © ATTRITINN FOR w(KIF (I) AGAINST GIFCI) 

AO4NAP(K, 1, ITB) EPOUN2XIK, IR) *ROUDAP(K,I,IR) 


C 

C weK) VS. Ge 

C *EQN (Ued) = FLOW OF RCKJF CI) FROM FCI) AGAINST G2F (I) 
POUGOSP(K,T+/IRISL,OMEXP(MALPHARCO24 SK(K,IRI#NISGC(I, IB) *AV(PGCK+I, 


1 TRY) 

ROUD3P(K, Tp IRIEV(PHON, TR) ERNUD2X(K, IR) KFOUD3K(K, IRI 
{ SWITCH(VCPR4N,IR) )*POU0SP(K,J,IR) 

c #EQN (U—5) = ATTRITION FOR w(KOF(T) AGAINST G2F(T) 
ADOGOSP(K,T,IBISPOU03X(K,IR) #ROUOSP(K,IT,1R) 
09 5425 Je1,Nw 
NNE3e (Jefe! 


C 
C w(K) VS, WCJ)F 
C EQN (Ue6) = FLOW OF RC(K)F CI) FROM FCI) AGAINST WC(J)FCT) 
POUOUP(K NN, TQI)E1 OME XP(wALPHARCOCUUX(K,J,TRI RAVI PWONN, IR) ) 
RNGOUP(K, NN, ITRISEV(IPWHEN, TRI MQOUDAK(K,TRIKFOUDKK(K, S,TRI*& 
1 SWITCH(V(PReN,IR)) ePOUOUP(K,NN,TR) 
€ EQN (Ue7) © ATTRITTON FOR wCKYFCIT) AGAINST aCJ)FE(T) 


AQUDUP(K,NN,TB)SPOUNUX(K, JS, IR) *ROU0UP(K,NN, TR) 
54625 CONTINUE 
5430 CONTINUE 
5440 CONTINUE 
5460 CONTINUE 
1 SSA0 IBS1,2 


1Fs3eJa 
Ce We te ee te eH TT RRR RRR RRR KEREERAREKEREKREREERE 
[2 FIFTH EQUATION SET 
C FLOWS AND ASSOCIATEN ATTRITTIN 


DN S480 J=1,I1F 
C 


BY ATTRITIUN 

*EQN (Set) © TOTAL GIFCI) ATTRITION 

ADSOIPCT,TRV=S A0301P(1,1,791440501P(2,1,1A) 

14493217 (1,1-781440521P72,7,7198)4A0321P(3,1,18)+40401P (1,18) 

NO Suro KSi,Nw 

ANSNIP(T,TH)SANSOIP(T, 1B) eA0dNeP(K,],74) 
5470 CONTINUE 
5480 CONTINUE 

M7 5500 Jsi,J4 


an 


Cc 

Cc ATRCRAFT ATTRITION 

C EQN (Se2) © ATTRITION FOR AA AGAINST ACJ) 
AOSIIPCI,TBI= 40001FP (5,18) 449002P(),78) 

Cc REQN (Sed) © TOTAL AGS(J) ATTRITION 


AOS12P(J,ITKRI=S A0101P(1,5J,18)¢h401019(2,5,18)+A0101P(3,J,18) 
1+AOVO2P (Lp, TeTAIFANILNCP(2,J,1B)+A0102P(3,5,18) +A0I03P(J,IR) 
2+A0100P(J,1TR14A0105P (3,168) 440106P(1,5,18) 

SeAOLNEP (2, J,TB) +401 07P(1,7J,138) +40197P(2,5,18) 

NM S490 Ks{,Nw 

N=o3e(Kef) 

ADSIAP(S»,THEIEANSIAP( I, TB) AOL OBP(14N,J,TB)V+A0SO0BP(24N,5,18)¢ 
1 ADLORE( S4N,J,TAVFA0L09P(K,J,78) 

5490 CONTINUE 
Cc WEQN (Sed) © TATAL ABT) ATTRITION 

AOSI3P(J,TRI= 40307P(1,5,18)+403079(2,J3,18) 

LAO SORP (I, TATRIFAN SNAP (2, JrpTSIV4AOS27P(1, J, TR) 4A0 S27P(2,5,18) 
24¢40327P(3,3,138)4+A032KP(1,5,71B)440328P(2,J3,18) 440 $2RP(3,5,18) 
€ #EQN (505) © TOTAL ACJ) ATTRITION 

AOSI4P(I,TBIE AOSLIOC IT, T8V¢A0512P(J,158)4A951 3P( 5,18) 

5590 CONTINUE 
IF (SwT2(18),EQ9,2) GO TO 5510 


A2 AND AX USING A5 


AU ATTRITIONS AND EXPENDITURES 

EQN (586) © ASSOCIATED ATTRITION OF AU 
QXLEC(VIPAJ41, IR) +V(PAJ+2, 1B) #(1, 08 

i FONOIX(2, 1B) )+V(PAJ+3, TB) (1, 0"F0001xK(3,78)))) 
QEDIVIDE(V(PAU,IB),9X1) 
ANSISPCTF)=SACSY3P(C1,IRIKAMINI(Q,COSLIX(IR))+A051 SP (2,1B)*AMINI ( 
{ Q,C€0512x(2,18))+A051 3°(3,18) #AMINI (90,0051 3x(2,1B)) 

C *E ON (Se7) © EXPENDATURE OF AU 
FOSLIPCTRYSEOSIIXC TR) &(ROON2P(1,1R)+RO002P(2,1RI+R0002P(3,18))% 
! E0512XC18) *R0003P(1,78) 


aANnNANNM 


C 
C AS ATTRITIONS AND EXPENDITURES 
¢ ®EQN (SeB) = ASSOCTATED ATTRITION OF AS 


OxXx1SCCvVCPAS+2,18)* 
1 FONOIX(2,IB)4+vV(PAJ+¢3,I18)"F0001X(3,18))) 
QePIVINECV(PAS,1B),2X4) 
AOSIOP(TRIZANS§ 3P(2,TB)XAMINI(G,CU0S1EX(1,I1R))+A051 $P(3,I18)* 
1 AMINI (C0513xX(1,18),0) 

[7 #FQN (509) @© FXPENDATURE OF AS 
EOSIASP(CIBISENSIBX(SWT2(TS8I,TRIeROD03P(2,ITB)FE0S14X(SHT2(15),IB) 
1 *R0003P(3,18) 
GO TO 5511 
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A2 AND AS USING 44 


AY ATTRITIONS AND EXPENDITURES 
eEGN (Se64) © ASSNOCTATED ATTRITION JF AG 
5519 CONTINUE 
AX{Sv(PaAtJelL,IBIeveEPAJe2, TR) +V(PAJS+3,I18B) 
QEeNIVINECV(P44,78),9x1) 
ANOSISPCISIZANSL BPCY, IRV RAMINI(QO,COSLIXCIR) +4051 SP(2,TR) AMIN] ( 
1 9,C€0512x02,1B))+49513P (3,18) ea4I NI (09,0051 3x(2,18)) 
€ EQN (Se 7A) © EXPENDITURE OF Ad 
EOSITIPCTBEIZEOSIIXCIR)*®(ROON2P(1,18) +RO0N2P (2,18) +RN002P (3,15) )¢ 
1 EOSLAXCIR)*ROOOSP(1, IB) FE OSL 3K(SWT2ACTB), IR) *ROON SP (2, 1834 
2 EOSJUxX(SHT2(TA),1R)*R0003P (5,18) 


ANNAN 


C 

€ AS ATTRITIONS AND EXPENDITURES 

C EQN (SeRA) © ASSNCTATED ATTRITION JF AS 
ANSIYOP(TRI=0,0 

C *#FQN (S5e9A) © EXPENDITURE OF AS 


FEOSL2P(18)=0,0 
5511 CONTINUE 
97 5520 1e1,1F 


C 
C G2F ATTRITIONS AnD EXPENDITURES 
C FQN (Sef0) © TOTAL ATTRITION FOR GeF(J) 


ANS2IP(T,TE) = ANZNPP(1,7T,18)¢A403502P(2,1,168)¢403220P(1,T,IT8)440327P 
{ (2,7,15)+40322P(3,]7,I8) 
DN 5515 K=1,NwW 
ANSPIPCT, IB) =A0SA1P (I, IRV +40403P(K,1,18) 

55415 CONTINUE 

C *EQN (Sef1) = ASSOCTATED ATTRITION FOR Ge 
QXLSAMINI(COS2LX( ITB) *V(PCIF4I,15)+,VOPG2F4¢I,18)) 
AOS2AP(T-TEIEANSOIP(T,IB)*DIVFIX(OX1,V(PGIF¢I,18)) 

Cc *EQON (Set2) = EXPENDITURE OF Ge 
FOSCIPCI,IRISEOS2IX(IB)*V(PGIF SI, IB) 
1 (CY, OPEXP (eB, OeV(PGOF eC], IBI/V(PGIF+1,18))) 

5570 CONTINUE 


C 

C GIR ATTRITIONS 

is eEQN (Se13) |@ TOTAL ATTRITION FOR GIR 
ANSSIPCIBI=S 40303°(1,78)+40303P (2,18) 
$#40323P(1,18)+¢40323P(2,1R)+A0323P(3,18) 


GER ATTRITIONS 

*EQN (Sef 4) © TITAL ATTRITIUN FOR GPR 

ANS32P (THIS ANZNUP(},7H)4+40304P(2,1B) 
1440324UP(1,18)4+40324P (2,18) 4A0324UP (3,18) 

c *#EQN (S$e15) © ASSOCIATED ATTRITION FOR GeR 
QOXLSAMINI(COS2IX(IR)*V(PGIR,18),v(PG2R,18)) 
ADOS3SPCIBISANS3IPCIRA)Y*DIVEFIX(OXI,V(PGIR,IB)) 


Nara 


Ls 
Cc S ATTRITIONS 
C *FON (Se{S4) © TOTAL § ATTRITION 
ANDSGOP(IB) 5 A40306P (1,18) 440 306P (2,18) +A0325P (1-18) 440 $25P (2,78) 
1 +4032°5P(3,18) 
99 5540 LEi,LL 
C 
C L(L) ATTRITION 


215 


Cc *FON (Selo) # TOTAL LIL) ATTRITION 
ANSGIP(L, THIS ANZOSP(1,L,TRI4AN30U5P(2,L,18) 
$440 326°(3,b,18)+40326P(2,1,78)+40326P(3,L,18) 


C 

c M(L) ATTRITIUNS AND FLOWS 

C 

C eEDN (Sef 7A) © NUMBER OF “(L) PER LAUNCHER 
KSDIVFIX(V(PM4L, 16) -V(PL4L,19)) 
VOSSIP(L,IB)SAMINI(VOS4IX(L,IB),X) 

C 

€ *#EQN (S478) = NUMBER DF MELD IN SITES 
VOSG2P(L,18) = V(PMeL, TB) @VOS4IP(L,IBR)#V(PLeL, IA) 

C EQN (Se(7C) = NUMBER OF M(L) JN TRANSTT 
VOSUSP(L,TIB)SAMINI (VOS42P(L,T8),VOS4USX(L,I6)) 

€ 

C EQN (SefBA) = L(L) ASSOCIATED ATTRITION OF MCL) 
ANSUPP(L,IR) = VOSUIP(L,18) #A0541P(L,18) 

C 

€ *FGN (Set8B) © S ASSOCIATED ATTRITIIN OF MCL) 


VOSU2P(L,JTRIEVOSU2P(L,TR)-VOSUSF(L,IRB) 
ANSUBZP(L,IBIEVOSUAP(L,TBI*OTVFIX(AOSUOP(IB),VC(FS,IR)) 
C eEQN (Sef) © TOTAL FLOW FOR M(L) 

ROSGIP(L,TBIS ROZOYECL-1,TF)+ROSNIP(L,2,IB)+80301P(L, 3,18) 
L+ROZGOPE(L, L,IBIFROSN2O(L, 2,13) eROS02P(L, 3,183 4+20 50 3P(L,J8) 
2+RNZ0UP(L,-TRI+ROZOSP(L,»L,IRV+#RASZO0SP(L,2, 1B) +RO3Z06P(L,I14) 
BERN ZNTE(L L,I RV+&5O0307P(L,2,18) 

O29 5530 KSt,hw 

No3e(Kef) 

ROSUIPCLAIRISROSULP (CL, TRY+RAOZORP(L,J4N,TRIFROZORP(L,24N, 8) + 
1 ROZOBP(L, 34N, 18) 4+R20309P(L,K,IB) 

S530 CONTINJE 
2 *EQN (50194) ©= ASSOCTATED ATTRITION GAR ON M(L) 
Qxisi,o 
ANSUUP(L,TS)=VOSU5P(L,IB) #405 32P (TR) #DIVETX(Oxi,V(PGer,IR)) 
SSaq CONTINUE 

DDO $560 KS1,Nw 

09 S558 y=et,1F 

No3u(kKwj{ je] 


€ 
€ wCKYF ATTRITIONS 
(ae EQN (C5020) TOTAL DIRECT KCKIF(IT) ATTRITYIONS 


ADSONPP(K, Ip IBISANSOIP (I PN, TRIFAD0SNOP(CA,N,TBVF¢hAOSC9P(1,N, TB) 4 
{ ANZ29F(2,N,T8)449329P(3,N,18) 
PO §550 Jsi,Nn 
ADSOPP(K,T,TBISANSNCR(K,T, IB) +¢A04U04P(J,N,16) 

5550 CONTINVE 

€ eFIN (SeP1) @& GIF ASSICTATEN ATTRITIONS OF K(KIE(T) 
QXTSAMINI(COSSSK(K, TB) eV(PGIF ST, T6)-V(PwW4NnN, JB) ) 
ADNSP3P(K,T,IBISAOSOIP(CIT + IRY#DIVEITX(COX1,V(PGILFeCI, 78) ) 


C 

s R(K)F ATTRITIONS AND EXPENDITURES 

C #EQON (Se22) © NUMBER OF ROKIF(I) PER w(K)F CT) 
VOSUOP(K,T,IB)SAMINI (COOL0K(K, IRB), OIVEIX(V(PRON, TR), V(PwtN, TB) )) 

C eEQN (Se23) = NUMBER ()F R(K)F CT) ASSOCIATED KITH GAF(T) 
VOSURP(K,T,ITB)EV(PREN, TR) =VOS46P(K,I,1R) #V(Pn4n, 18) 

C eEDN (Se24) @ w(K)F ASSOCIATED ATTRITIONS OF R(K)F CT) 


AOSTIP(K,T» IPF ECA0S23P(K,1,78)+¢A0502P(K,7,78) )*VO5SU6P(K,I,I8) 
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€ *EQN (5e25) © GOF ASSOCIATED ATTRITIONS OF R(K) FCT) 
AMSSIPCK,T,TB)SCA05S21P (1,18) ¢A0522P (1,18) *DIVFIX(VOSURP(K,1,179), 
\ V(PG2F4+I,18)) 

C *EQN C526) = ROK)F(T) EXPENDITURES 
ENSSIPCK,T,TRIEROUNPP(K,1,1B)+RO40SP(K,J,15) 
DA 5555 Jsiynw 
EOSSIP(K,T,TR)SFOSSIP (CK, 1,18) +RO4OUP(K, 3e( Je} )+I,18) 

5555 CONTINUE 

$958 CONTINUE 


fa 
€ w(KYR ATTRITIONS 
C EQN (Se27) © TOTAL PIRECT &(K)R ATTRITION 
ANSO3P(K,IB)=AN330P(1,K,IBV4A0530P(2,K, 1K) +A0330P($,K, 18) + 
{ 40310°(1,K,1B)+4A0310P(2,K,18) 
c #EQN (S5=28) = GIR ASSOCISTED ATTRITIONS OF #CK)R 
QXYEAMINY(COSA3XK(K, ITB) eVCPGIR:IB),V(PwReK,]B)) 
£05347 (K, IRJEA0S31P (1B) #OTVEIK(O£1,V (PIR, IB) ) | 
C 4 
C R(KYR ATTRITIANS i 
a KEQN (5e29) & NUMRER OF R(K) PER w(K)R 
VOSHTP(K,TRISAMING (COOLOK(K, IR) ,OTVEIK(V(PRROK, TK), V(PukeK,IR))) ; 
Cc EON (Se30) = NUMRER OF R(K) IN TRANSJT ' 


VOS4OP(K, TR) SAMINI(V(PRREK, JB) MVOSUTP(K, TB) RV(PHReK,IB), 
1  -v0554x(K,IB)) 


(e *FON (5e34) © NUMRFER OF R(K) IN SITES ¥] 

VOSSOP(K, TRI EVIPRReK, ITB) @VOSU9P(K,IBI=VOSUTIP(K, ITB) eV (PKREK, IR) y 

C fEQN (5832) © WEK)R ASSOCIATED ATTRITIONS OF R(K)R ] 

AN572P(K,ITE)=E(A0S03P(K,TR)+A05S3UP(K, IR) ) eVOSU7TP(K,IR) 

€ EQN (5033) © GOR ASSOCIATED ATTRITIONS OF RC(K)R ] 

ANS6IP(K,TB)SCANS33P (TBI FANS 32P( IB) ) eDIVETX(VOSU9P(K,IB), 4 

1 V(PG2R,18)) 1 

C fEQN (Se3d) © S ASSOCIATED ATTRITIONS DF R(K)R i 

AN573P(K,TBISA0SUOP(IB) &eDIVFIX(VOSSOP(K,IB),V(PS,18)) 

5560 CONTINUE 
C 

C RESUPPLY RATES | 

C *EQN (5—=35) = RESUPPLY RATES 


NO $565 Jal,JA 
ROS7TIP(J,I1#6) = ROS71X(J,1B) 

5565 CONTINUE 
ROS7TOP(IR)ISROS7TEXCIB) 
ROS73P(JB)= ROS73¥(IB) 
ROSTGP(IB) = ROS7TUX(IR) 
ROS7TSP(IA) = ROS7TSXCIR) 
NO SS56R kEj,Nn 
ROSTOP(K,TRISROST4OXK(K,I8) 
ROST7TP(K,IBIESROS7T7X(K, IB) 

5568 CONTINUE | 
OO S570 Lei,le 
ROS7TBP(L,IK) = ROSTAX(L, IRB) 
ROS79P(L,IR) = ROSTOX(L,TR) 

S570 CONTINUE 

5SaAN CONTINUE 
99 5600 IbEi,2 
TR=3e18 


CR RRR RRR ERE REE RTE RK EERE ERE ARERR AERA REET EE 
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¢ KINEMATIC EQUATIONS ##* AT LONG LAST wee 
M0 Sooo ysi,IF 


F MOVEMENT 

#FON Comet) © ROT) 

QSV(PGIF +I, TR) eAOSOLPCI,TIR) 

QN=EVCPGIF¢I1,1IR)*A0SO1PC(1I,71B) 

Qx1=2QeGQ 

QxesdeQq 

CNHOONIP(T,IBIENIVINE(Ax1,0x2) 

IFC CCOHOIP(IT IB) NE.0,0),0R, (VCPGIF 41,18) *A0SOLP(I,IR)NE.0,.0)) 

1 690 TO 5640 

TFC VCPGIF +1], 18)-VCPGIF 41,1821) 5$600,5640,5620 
56009 CONTINUE 

CooO1P(J,16)= 91,0 

69 19 S640 
5620 CONTINUE 

COHO1P(CIT,IB)S 1,0 
S6ag0 CONTINUE 


Aa 


a WEQN (602) © KINEMATIC FOR XF(T) 
DV(PXFeT,12) = RNGOIXKCO6OIP CI, TB) (COOOL X+ (1, eC O6N1x)*COG01P (1,13 
})«eed) 


S660 CONTINUE 
DO S6RO Jei,JA 


C 

c A( J) MOVEMENT 

Cc *FQN (683) = KINEMATIC FOR 45(J3) 
DVCPAS+IJ,TRISROSTIP (CJ, 1B)eA0SIUP(J,I8B) 

S6R0 CONTINUE 

€ *EQON (604) = KINEMATIC FOR AU 
DV (PAU, TRISROSTAP(IB)wEOSIIP(CIB) @ANSISPCIB) 

E ®EQN (685) @ KINEMATIC FOR AS 


DV(PAS,TRISRUS7TSPCIB)MEOSI AP CIB) =A0S16P (1B) 


GIF MOVEMENT 
*FON (686) = GIFY DEMAND FUNCTION 
NEVOGOIX(L TR) @V(PGIF 41,18) 
QOSFOHOIX(1, IB) eR960{XeDV(PXF 41,18) 
AXSCOKOSX (18) *OeR0602X(TB)#ON 
IF (0) ,UT. 040 GANO, GOO ~bT, 0,0) Oxeen¥ 
NOGOIEP (CL, TRIREOX4+COEN3K (1,78) *40501P (1,785 
09 5700 Is2, IF 
€ *EQON (697) » GIF2 GIF3 DEMAND FUNCTION 
NSvOBO1X( IT -IRIeV(PGIF ST, IA) 
QQZEFOBOLXY CT, IB) eOV(PXF el, TR) eDV(OKXF4I,IB) 
AXSCOSOSX (IB) #9D*eRO6NEX( TR) QD 
TF (CO ,LT, 0,0 , AND, GO ,LT. 0,0) OxeeUnx 
DOBOIPCT,TEIEQOX4+COBO0SK(I,TAI*A40SO1P(CI,IB) 
5700 CONTINUE 
DO 5720 T=1,IF 
G *EON (608) = FLiw OF GIR TON FCT) 
YXLSeCOHNUXK (TR) #SnTTC(DO601P(7,78))*#N0601PF (1,718) 
AX2ERN60PX( TH) *eV(PGIR,18) 
QSNIVIDE(AXK1,0x2) 
AUXL=eeNO0601P(T,I18) 
ROGBOIP(CT,TRIEROENAX( TRI K(V(PGIR, IB) * (1, 09eEXP( 2) eSHITC(QX1)*® 
1 V(PGIF41,18)) 


3 C1 FD 
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eee erie nee | 


C FON (609) © KINEMATIC FOR GIF(T) 
NYVCPGIF +I, 1 B)ER06001P (7,18) "405019 (1,18) 
OFLOKS0,0 
IF(ROBOLPCI,TB),LT,0O) DELORERO601P(I,18) 
DAVCPGIFS¢I,TRISCOA5SLX(TRIK(VCPGIF +L, IB) =AV(PGIF tI, IR) )eCO261xX (TR) 
1 AV(PGIF SI, IR PANSOIP (CT, TRI +DFLOweOI VIDE CAV(PGIF+I,1R), 
2 V(PGIF4¢1I,18)) 

c EQN (60ef$0) »= GAF(IT) DEMAND FUNCTION 
VOOOLPCT,IB)EV(PGIF 41,18) *C0S22x(1B) 
DOGDAPCI,IBIS(VOENIP(T, TR) #V(PGOF 41,18) )*RO603K(ITB)+CO607X(ITR)* 

1 (AN5S2IPCI,IBIFEOS2IP (I, TB)PAMAXI (0,001 NP CNS2IXCIR) )*® 
2 60501P(1,18)) 


C 
C GeF MOVEMENT 
C *EGN (6941) © FLOW OF GER TO FCI) 


AKXLSeCNKSOUX( TRI eSwITCCDOBNPP(T,15))*D0ENeP (1,71) 
OXK2=R0603xX( TE) *«V(PG2R,IR) 

GQEDIVIDE(CGX1,9x2) 

QxLSRO601P(T,1 3) ev (PG28,IR) 

XSSwITC(Qx1) 

AxtseNoed2eP(],78) 

Ox 2eeR0601P (1,18) 
POBOAP(T,THISROOOEX(TRY(CV(PG2R, TR) RCL OM EXP(9) DeSHITC(OX$)* 

1 VCPGOFe¢1,1B8))+ROGOIP(T-IB) x (COO0EXCIRIeX+DIVEITX(V(PG2F 41,16), 
{ V(PGIF4¢I,TAR))*#SwITC(9X2)) 

C EQN (612) |= KINEMATIC FOR GOF(1) 
YV(PG2F4T,JTBIERNSO0SP(T,IBIMEUS2IP (IT, TB esA0522° (1,78) -40S21F (1,78) 
OFLOwSs0,0 
IF (RO602P(1,18),L7,0) OFLOWESR0602P(1,18) 
DAV(CPGPFS4I,TRECO25SAK(IRI(V(PGOF e+], IR) eAV(PGAF eI, IR) eCH26ex(IR)*® 

{ AV(PGOF ST, TR) SADSAIP(CT eA IBIHKCEDSALPCI,TB)+40522P (1, TR eOFL OW) ®& 
2 DIVIDE (CAV(PGQF4],I1R),VCPGOFe1,18)) 
5720 CONTINUE 

€ 

C G18 MOVEMENT 

C *EQN (6013) © GIR KINEMATIC 
DV(PGBYR,ITRISROSTUP(TRIMROGOIP (1,18) eROG0IP (2,18) eR9601FP (3,78) = 

1 A0S31P (18) 
NFLOwsSO,0 
IFC CROSOIP(1,ITR) +R O601P(2,18)+R0609P(3,18)),67,0) DFLOW= 

i RN0601P(1418)+R0601P(2,18)+R0601P(3,IR) 
DAVIPGIR,IRISCOAS3X( TRI R(VIPGIR, IB) MAV(PGIR, IR) eCO263K(IR)& 

{ AV(PGIR TR MeANSZICCIBIMDFLIWENI VIDE CAVIPGIR,IR)»,VCPGIR,I&)) 


an 


Gae MOUVEMENT 
Cc eEQN (6814) = GAR KINEMATIC 
DVCPGAER,TRISROSTSP(TR)eROGD2P (1,1 RIeR0602P (2,18) eR0602P(3,18) 8 
1 AOS33P(TA AOS BOP(IB) 

OFLOwsS0,0 

TEC OCRO6NAP(1,TR)¢RO602P (2,18) 4R0602P(3,18)),67T,.9) OFLOWS 

{ R0602P(1,18)+R0602P(2,18)+R80692P(3,18) 
NAVIPGAR,IRISCOCAESUK( TR) #e(V(PGAR,TB)=AV(PGAR, TR) )eCNP6UXK(IR)® 

{ AV(PGAR, TRYPANS ZAP (IBM (ANSSZPCIBV+DFL Jw) e DIVIDE CAV(PGAR,IR), 
2 V(PGPR,IB)) 

00 S746 Letvtb 


C ACLY MOVERENT 
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C *FAN (6015) © MCL) KINEMATIC 
DVCPM+L,TBISROSTBP(L, TR) eROSULP(L, IB) eA05deP(L,TR)A0SUSP(L,1H)= 
{ AQSuU4P(L,IB) 


Cc 
C LCL) MOVEMENT 
C *EQN (6916) = LOL) KINEMATIC 


NV(PL4¢L, IR) SRKOSTIP(L,IR)=A0S4IP(L, IB) 
DAVOCPLEeL TRISCOASSXK(L,IRI*(V(PLeL, IR) sAV(PLeL, IR) )#COCOSXK(L,IR)* 
{ AVCPL4#L,IR)eANS41P(L,IAR) 
$740 CONTINUE 
BY Seo Mat .4s 


C 
c ROM) MOVEMENT 
C *EQN (6217) = B(M) KINEMATIC 


NV(PBeM,]B)=0,0 
S760 CONTINUE 

DO $780 Ksi,Nw 

90 S770 T=st, IF 

Nede(Kel)e] 


wCKIF OCT) MOVEMENT 

*FON (6818) = W(K)F(T) PEMAND FUNCTION 
VOHO2P(K,T,T3)SV060AK(K,1,18) 
NOBNSP(K,T,ITRIECVO602P (Ks Tr» TR) @V( PAWN, 18) )#ROGOUX(K, IR) + 

1 CO619X(K,I16)«405N2P(K,1,I8) 

a *EQN (6819) © FLOW OF w(K)R TO FCT) 
QREAMAX{(V(PHREeK, TR VeFLGWAD(K,TB)*V(PGIR,I8),9,0) 
QFSAMAXY(V(PHEN, TB) *FLOWAD(K,TB)eV(PGIFtI,18),0,0) 
QAsv(CPW4N,)8) @ QF 
OXLeeCQ6U4X(TBY*SwITC(N0603P(K,I,18))%906035P(K,1,78) 

VX 3SRO6N4X(K, TR) *OR 

QSNIVIDE(Ox},QXx3) 

QXLSROBOIP CT, IB) e®VfPWReK,IR) 

VSSVeP Te Clix > 

Qx{s900603P(K,1,18) 

Qx2seRN601P(1,1R) 

ROGOBP CK, T»+TRI=EQK 3a (1 ORF XP (CO) )eROGNUX(K, TR) eSHITC(QX{)* 

5] QF #ROOUIP(CT,TR)*(FLOWAD(K, TB) *X#DIVETX(QA,V(PGIFS¢I,78))* 
2 S*TTC(OXK2)) 

C *EQN (6820) © W(K)F (I) KINEMATIC 
NV(PWHh,TBISERONGOSP (KA, Tp IB MANSO2P (Ke Te IB) PANS2S3P (CK, IT eIR) 
OFLOW=0,0 
TF CROGOSP(K, 1,1 BL Te0e9) JFLOWSRO603P(K,1,18) 

DAVIPWAeAN, TRIECUSSOXK(K,TRIR( VCP WEN, TR) RAV (PWHh IRI ACN26EX(K,TR)® 

i} LV(PWHN,TRIMANSOPP (KT, TRIPNIVIDE(CAV(PWHN, IR), V( PWN, IB) )*® 

2 (ANS23P(K,T,IR) @OFLOW) 


Ca ses a om 


R(KIF(T) © MOIIVEMENT 
eEQN (6m21) = ROK)F (CT) DEMAND FUNCTION 
VOKOSP(K,IT,IKISCH6INOX(K, IBY ®V(PWEeN, IB) 

DOHOYP (Ky Te, IRISCVOANZP(K,T,T8I9V(PR4N,IB)I#RO605X(K, IB) + 
} CI612AX(K, IB) *EOSSIP(K,],16) 
¢C *FON (6e22) © FLOW MF R(KIR TO FCT) 

QUXLEeCOBNUX( ITB) *®SWHTITO(ND060UP(K,I,I18))*DNKNUP(K,T,IB) 
QX¥2EROHNSX(K, ITB) eV(PRReK,IR) 

ASOTVIOF (COx1,0x2) 
LKXLSPOONBP(K, I], TR) eV PRREK,IB) 


ci €3 FN 
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XESWITCCOX1) 
AUXL=eNN60UP(K,],]8) 
QX2SeRO6U3P(K,IT,78) 
QYUTSOTVEITX(VCPReN, TAI, V(Pwen,IB)) 
YSAMINI(COOL0X(K,18),9Y1) 
ROGNUP(K,T, IR EROONSX(K, IB) (V(PRREeK, TA) (1 OMEXP(2) DeSWITC(Ox1)* 
1 VOPREN, TRI #ROGNSPCK,T,TRIR(CIOLOX(K, TR) eXeveSKITC(9xK2)) 
€ eFQN (6823) = RCKIF(I) KINEMATIC 
DV(PREN,TB)EROHO4P(K,T,18) MF 05SSIP (KT ,IB)eANSSIP(K,I,1 8) 
1 AOS71P(K,1,18) 
S770 CONTINUE 
iu 
tC w(K )R MOVEMENT 
Cc eEQ* (226) © wW(K)R KINEMATIC 
NV (CPWREeKsTRJERASTOP (CK, TB) #ROKOSP(K,L, TB) HeROBUSP(K,2,18)= 
{ RO603P(K, 3,TB)eANSO3SP(K, TB) =ANS3UP(K, IR) 
TFLOWSAMAX{CO,0,RNGOSF(K,3,TR)#ROONSP(K,2,78)+¢R0603P(K, 3,18) ) 
NAVOPWREK, IRISCAOOSIK(K, TEV ECV (PWREK TR) MAV(PWREK, TRI IOCO2Z67IK(K,IR) 
{ wAV(PWREK,TR)PANSOSP(K,TE)@OTVIDECAV(PwRoK,IR),V(PWRek,IR))® 
? CANS SHEP (K,TR)+NFLOW) 


RIKIR MOVEMENT 

Cc ®EGN (6825) = R(KIR KINEMATIC 
NV(PRReK,TRIZEROSTIV(K, TR) ePOB0UP(K,1,T8)#ROG0UP(K,?P, IR) © 
! ROGOEP(K, 3,18) -A0561P(K,T8)eADS7TCP(K,IR)@ANS7T3P(K,IB) 

S7TRO CONTINUE 


8 er ay | 


C 
Cc S MOVEMENT 
c *FQON (6826) & S KINEMATIC 


DV(PS,IR)==A054U0P(JB) 
5800 CONTINUE 
69 TO 4100 
6000 CONTINUE 
e ERQIR PROCESSING 
wRITE (6,600) 
STOP 2 
7000 CONTINUE 
MODFLG & ,FALSE, 
FE ChISG GE, TEND). GO TO PESO 
IF (ABS (TIMESTOUTER) ,LT, 1,0E@6) TIME = TNUTER 
TP CTIME, LT, VOUTERS Gh TO 7150 
i eWE'TRE AT A MUDIFY POINT: PROCESS MODIFY CARDS, 
NLINES = 0 
7080 OFF 7700 ¥ BS [;4 
Te CINDESCT) EGO) GO FO 7165 
IF CINDEX(1),GT,0) GA TO 7095 
C *#CHANGING DATA PNINT INTERVAL? FORCE A DATA POINT NOW 
TOUT = TYME 
ATINER s&s VALCI) 
WRITE (6,601) VAL(TI) 
60 TO 7206 
7095 CONTINUE 
C eCHANGING THE VOLE OF A COEFFICIENT 
KSINNEXCT) 
IFC(K,.GT,16R82) GO TO 7100 
YECOrF CRS & VaEtys 
CALL LCHPTR(IM ,TITU, 30,0ATE,NLIVES- #55) 


IF (NLINES,EQ,2) WRITE SH,298) TIME 
WRITE (6,209) K,XNAME (CK) ELEYNT(K),VALC(T) 
C IF THIS IS A VOCNEFFICIENT, ALSO RESET THE CIURRESPINDING Vo VARI ARLE 
TF(K,GT,1552) PvV(K=1552) = VAL(T) 
7100 CONTINUE 
C *eChMECK NEXT MONOIFY CARD 
READ (5,104) Carn 
IF (FOF C(S)) 7110, 7120 
7110 TOUTER = TEN 
MO 7115 1e1,4 
7435 INDEXCT) & 0 
6 TO 74145 
7120 TFCCARN(1), EG, TYPE) GH TO 7140 
WRITE (6,302) CARD 
wRITE (6,301) TYPE 
STP 
7140 DECODE(7O,401,CARD(2)) TACINDFX(I)-VALCI),JE1,4) 
TFET, LE STEIME) GO TO PHRO 


C awE'VE FINISHED ALL “ODIFICATIONS FIR THIS TIME POINT, 
TOUTER = T 
C *SEE ITF THIS IS A DATA PUINT 


7798S FF E€TIME LY STSUT? GO Ta 350608 
MODFLG = , TRUE, 
7150 CONTINUE 
C #VE'RE 27 A DATA POTNT: wRITE JUT MIDEL STATE AND SET NEXT DATA PT 
WRITE(3) Tite (XCOEFFCT)-TELe¢NXEC), CPV(I), ISi,v), 
#(PNVOET),TEle"0V), SaTe(ids, Stele) 
JFCTIME,GT,TFNDE) GO TN 8000 
TOUTSTOUT+DTINER 
IF (TOUT, GT, TEND) TOUTSTEND 
IFCMONFLG) GO TO 3000 
G0 Ti) 6000 
8000 CONTINUE 
G END PRICESSING 
STOP 
jou FORMAT (8410) 
208 FORMAT (//e PARAMETERS MODIFIED AT TIME = #,F19,5//) 
209 FORMAT(LOX,#xXCOFF(*,14,%) = *,2AS0,* = ©£15,6) 
301 FORMAT(//1X,SHeewee,e ABIVE CARD “MISPLACED OR UNIDENTIFIABLE®, 
i Sx,*EXPECTED CARD TYPE &,A19) 
3N2 FORMAT (//5X,8410) 
401 FORMAT (F10,0,4(15,F10,0)) 
600 FORMAT(® PROCESSING ERRNR*e) 
OL FORMAT(IX/L0X,#NEw TIME INTERVAL Se,F 42,57) 
ENP 


222 


FUNCTTAN DIVIDECK,Y) 
C THIS YS THE HYVINE FUNCTION USED TD AVBID DIVISION OF DR BY NUMBERS 
C VERY CLOSE To ZERO, 

OIVINE=s0,9 

IF(CARSCY) LE, 1, £°50),9R, CABS(X)D.LE.1 £6 950)) RETURN 

NIVIDEsX/sY 

RE TURY 

END 


223 


FUNCTION AYVEIX (XY) 

SCALING FUNCTION FOR RESOURCE ALLOCATION 
IF CY LE.1.) OIVFIX & Xey 

TF (Y¥.6T.1.) DIVFIXSX/Y 

RE TURN 

END 


224 


FUNCTTIN SwITCl(X) 
C THIS FUNCTION PROVIDES EXPNNENTTAL RATHER THAN 
C LINEAR EXPFNAITURE OF COMMNDITTES, 
DATA RETA/7,0/ 
SWITCEN.O | 
TF(X¥,LEL0.0) RETURN 
SWITC=1,0 
IFCX,GT.19,0) RETURN 
SWITCH, OF XP(eBETARX) 
RETURN 
END 


2e5 


FUNC TTON SwITCH(X) 
THIS FUNCTION PROVIDES EXPONENTIAL RATHER THAN 

C LINEAR EXPENDITURE DF COMMODITIES, JT DIFFERS 
C FROM SwITC ONLY BY SCALING FACTORS, 

DATA BETA/0,07/ 

S¥ITCY = 90) 

TF (X,LE,O,9) RETURN 

SWITcus!,4 

TF(X.G6T.1000,0) RETURN 

SWITCH = $ [OmEXP(@SETARX) 

RETURN 


END 


ao 
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SUBROUTINE INTEGCFE,TO,TL + TLIMAXO,EMAXSEMIN, NEZOT/ CONV, JUMP) 


THIS ROUITINE INTEGRATES A SYSTEM OF FIPSTMIRDE® ARDINARY 
NTFFFRENTTAL EQUATIONS, USING THE ADAMSe4OULTIN PREDICTORS 
CIRRECTOE “ETRKID, Tr ARAFR TD) COMPUTE THE VALUE AT & PARTICULAR 
TIME POINT, ADAMS@*OULTON RESIIRES THE VALUES OF THE DERIVATIVES 
AT THE FOUR PRECEEDING TIME POINTS, THE ALGORITHM USES & 
FOURTHeENRDER RUNGEeKUTTA PROCESS T1 GET THESE STARTING VALJES, 

FOLLOWING FACH APPLICATION OF THE CORRECTIR, AN ESTIMATE 
NF THE ERRJR TERM JS MANE, JF THE ERRIR TERM JS TiN GREAT, 

THE TIME STEP 1S HALVED, IF THE ERROR TERM IS SMALL ENOUGH 

THAT THE DESTRED ACCURACY CA" BE ACHIEVED wITH LESS COMPUTATION, 
THE TINE STEP IS DOUBLED, IN EITHER CASE,THE CHANGE IN TIME 
STEP MAKES SOME OF THE CURRENTLY SAVED VALUES FOR PREVIOUS TIME 
POINTS INVALID, SY RUNGFekKUTTA ITS USED AGAIN TO GENERATE THE 
REQUJREM VALUES, 

SINCE INTEG “AY CHANGE THE SIZE OF THE TIME STEP, IT MUST 
RF be ARE ()F THE ENT OF THE PRESENT TIME INTERVAL (71), IT 
ALS) USES & FLAGS m= JUMP, JCONTRL, K, AND JP w= TD KEEP TRACK 
OF weEPE IT IS [Tw ITS COMPUTATIONS, AND wHAT VALUES IT HAS 
AVATLABLFE, 


ARGIIMENTS TO INTEG AREY 


F VECTOR NF RATES DF CHANGE @©& INPUT AND OUTPUT 
TO INETIAL TIME POINT 

T4 FINAL TIME POINT 

TEIM PAXIMNM TIME STEP. SIZE 

xn VECTOR OF VALUES e= JNPUT AND QUTPUT 


Emax JF AERR ,GT, EMAX, OT TS HALVEN 
EGrIN JF AERR .LY, EMIN, DT IS DOUBLES 
NE NUMBER OF EQUATIONS 
DT ESTTIAL TENE STEP 
CONV IF OT LT, CONv, AN ERROR MESSAGE IS PRINTED AND THE 

PROGRAM TERMINATES 
JuUYe FLAG FOS PROGRAM PHASES =f |= START TF INTEGRATION 

0 == INTEGRATING 
+{ e= END OF TIME INTERVAL 


COMMUN/NTCT/PNAME (3236) »pPELMNT (3236) 6SwT3,0K1,0K2 
DIMENSTON XO(1),F (1), 
{ P2000) 662900), 4144000) 
*CASE (JIMP w= PROGRAM PHASE) 

TJUMPS JUMP 42 

Gi) TO (40,60,89), TJiime 

#JuUMP = ef c= TRIGINAL RUNGESKUTTA SETUP 

TIEPSEST1iel, OF ej0 

TsTO0 

N00 $0 Jst,Ne 

Ti/s7e(Te1)+i 

TRST142 

GOT YEXOET) 

A(T, )exoty) 

A(TBISF(T) 

COKTINUE 

1P=1 

Ks} 

JumPsn 


227 


nan 


469 


Lame) 


R4 
RS 


BA 


Ty 


95 


{15 


12) 


aa ION 
neta ter -_——_—_—_—_— 


GY TO 100 
*JUMP = 0 w= ACTIAL INTEGRATION PHASE 
RCASE CICNTRL we KHICH STAGE DF INTEGRATION IS NEXT) 
BY TO €11541925,535,142,2127282,900221), ICKNTRL 
eJIIMP = J me FINISH THIS TIME INTERVAL, AND SET UP FOR NEXT, 
*SETUP MAY REQUIRE RLUNGE@KUTTA AGAIN IF TIME STEP HAS KEEN 
*® THANGED CIF JP = {), 
TYEPS=ST181,0F #10 
JUMP=s0 
GA TH €100,85,2900,85), IP 
TSSAVET 
NTSSave 
PN BA y=eti,NE 
KOCTISE CY) 
CONTINGE 
ICNTRL=7 
RETURN 
*JTCNTRL = 7 we A PART TF THE SETUP BETHEEN TIME STEPS 
YO 8S Fes. ve 
TIS7e(Tei)e1 
T3s]1+2 
Tusli+3 
JSsTieu 
TesT1¢5 
A(T6)sA(15) 
ACTS5)sAa(14) 
A(T4)24(73) 
ACT 3)sF(1) 
ACIs)ex0cy) 
CONTINUE 
]Ps]Pe} 
TE(K,GE,4) IPS3 
GU TO @a@ 
FOURTH ORDER RUNGE RKUTTA 
CONTINUE 
NT2SDT/2, 
MO 910 Jsit,NeE 
Tis7e(Tei)+) 
Tesli+¢+i 
13=12+1 
ACT2)SNT2*A(13) 
KOCT)SACTII44(32) 
CONTINUE 
THT 2@sTeDTe 
TOSTNT? 
ICNTRL 2} 
RETURN 
e#JCRTRE = { we FIRST RUNGE@KUTTA VALUE, 
09 120 Isf,hE 
Tis7w(Jej)+! 
T2=Ts 4+] 
T7=12¢5 
A(T7)SNTAeF CI) 
A‘IT2)SA(TP) 42% A(T7) 
XO(CT)SA(T1)44(017) 
CUNTINGIE 
ICNTPLSO 


228 


Deeper: 


pena: 


na 


rer 


125 


135 


140 


{u? 


145 


{46 


159 


RETUIRN 
ICNTRKL & 2 we SECOND RUNGE@KUTTA VALUE 
O01) 130 Tst,NF 
Tis?a(Toj jet 
leslie 
T721245 
ACI7)SDT#F (1) 
A(T2)=ZA(T2)44(17) 
XOCTISACTI)FA(T7) 
CONTINGE 
TNTST40OT 
TOSTOT 
JONTRLS3 
RETURN 
*TCONTRE = 3 we THIRD Rek VALUE 
Ho {20 Per .ne 
T1s7e(Tej)es 
TPe=lTie4 
T7=Te45 
ACT7)=aNTPeF(T) 
XOCT)EACTII+CA(12)44(17))73, 
CONTINUE 
VE GIP J6@. 2 08%, IP .ES, 2) Go 1 150 
K=Ko{ 
TEMPET141,9F 219 
IF CYOT ,GT, TEMP) Gm TS 160 
Veto? 
Fost 
ICNTRL =O 
RETURN 
UPNATE 
*ITCNTRL = G me FOURTH ReKk VALUE, 
DV 185 [S1,NE 
Tis7Te( Tel) ed 
T3sI1¢e2 
145] 31 
1SsT4e} 
TozlTSe) 
A(Te)=£4(15) 
ACTS) =sA(T4) 
A(T4)=4(J3) 
A(T3)sF (1) 
BPCTVVSROCT) 
CONTINUE 
wTF TIME INTERVAL FINISHED, “ARK IT AND RETURN 
TECT,LT,TIEPS) GO TN 146 
LOST 
JUMPS] 
TF (K,GE,4) IPs3 
RETURN 
TIME INTERVAL NOT OONES ITF wE HAVE FOUR VALIIES THEN USF hom 
TT PRENICT NEXT VALUE, OTHERWISE, GO USE Re« AGatn, 
Te (Ket 1,40) BO FO 1H0 
69 TG enn 
TSTNT 
THsT 
JIMS 4 


PE TLION 
160 SAVF=ZDT 
SAVETSTOT 
NTstielt 
TR=2 
OO AO TSeheNne 
Ccry=x9C1) 
170 CONTINVE 
GA TT) 100 
G tADAMSeMNULTON PREDICTOR 
2090 CONTINUE 
TPs 3 
NT2USDT/24, 
THTSTEeNT 
CO 210 Tsj1,NE 
Tys7a(Jes)et 
T2=T 3+} 
PSs lee! 
TusJ 3} 
TSs] ue! 
T6=sTSe} 
ACTAVE0TAUR(SS  eACT 3) HeS9O wACTUY)D +37, HAC TSI HF, weA(TA)) 
P(T)SA(T1)+A(T2) 
xOCT)=SP(T) 
e110 COMTINUE 
PESTO 
TCNTRLES 
RETURN 
a *TENTREL = 5S em ADAMS@MODULTIN CORRECTOR 
212 DO 235 Ts3,NF 
Ti=Z7e (Tel) 4] 
TesJie} 
T3s]241 
T4sJ3e} 
I5=Td+} 
T6sl5+i 
ACTAPI=ENTPURK(G, eF(TI4S9G , eACT SIMS, wACT UV eal I$)) 
C(1)S4(7T1)+4CT2) 
yocr)sccl) 
eS CONTINUE 
C CHECK STEP SIZE |= MONIFY IT IF NECESSARY 
AERRZ0,0 
ON 220 FE5,NE 
AESARS(C(TI=PC(I)) 
BESAMAYI (C1, 0,485 (0C(1))) 
WX PSAP 
AX2@S{U,weRE 
FRENTVIDE(QX1,9K2) 
IF CER, LE GAERE? GO Ta 220 
AERRSFR 
JKetT 
220 CANTINUE 
TF CHERR LE, EMAX ,AND, AERR .GE, EXIN) GO TS 2356 
FE CSE RR Sty. EMER GO ED 22e 
Le CagOeo?t wots TEISS 6o TT S30 
Nts2,0enT 
TPs{ 


K=3 
TEMPST141,0F "10 
TECTET GT. TEMP) GO Th 238 


TeTot 

TOsT 

ICNTPLS8 

RETURN 
C *ICNTRL = 8 ee OOUBLING TIME STEP: NEEM TO 'ISE ReK T0 
3 GET ANOTHER- NRIVING VALUE FOR AemM METHIIN 


221 0 223 TEi,NE 
TyY=S7e(Tel)¢} 
L3sTie¢2 
TSsTliedg 
Tozli¢4S 
A(1S)=4(T6) 
SODSVSF €1) 
RTL yee] 3 
225 CONTINUE 
TPCT other fecS) GO TS) 06 


Test 
JuuMPs] 
RETIN 
€ *CUTTING TIME STEP IN HALF == WILL NEED 19 USE R=K TQ 
¢ GET MIRE DRIVING VALUES FOR AaM 
222 IF(SeT3,FQ,1) RITE (6,1939) TO,PNAME( SK), PELMNT( JK), AERPR,DT,XO( JK) 
fpr IK 
1939 FORMAT(6X,#HALFING AT TIME T#,FR, 3/9X,e CAUSED BYSH, bb, AS D,5SX, 
1 *#(ERRDRe*e,F10,5,* Hewe,FIN,S,* V*/1AX,eVSe,F10,3,5X,4DVER, 
e oF 4055) 
Dt20,5eNT 
Te (OF gil. EON) 60) TO 225 
TPs} 
Ke} 
69 TO 190 
225 ¥ RITE (mr, 228) 
22R FORMAT(IX, #&CUNVERGENCE CONDITION VIOLATEDe) 
JUMPSe] 
RFT IRN 
239 CONTINUE 
TE*PST{I41,0E%10 
Te C¥DY 4634 TEMP) Go TO 246 
TSTNT 
Thst 
TCO'NTRL Sb 
DF TURN 
Cc ®ICNTRLEA wee YOVE SOLUTIONS JP, ANG PREDICT NEXT SOL'N 
G THIS SET DF INTEGRATIONS, 


232 DD 235 TEhi,NE 
T{S7e (Jol )eol 
13sli+2 
]4sJ 3e{ 
TSsTtue| 
Taetse} 
ACTAY2ATTS) 
ACTS)sa(ya) 
A(TajeA( I 3) 
A(TS)sF(T) 


23) 


235 


239 
e240 


Ee et lI AR Ne Nl A A ia ON A a hn le els el A Cl EE CCC AS PLOT AA ONCE ABH GREE EET ALS IAN ALTA ILLIA LAN. LPAI EA 


SEVP VSCC?) 

CONTINUE 

TF STICL TEESE LEFT TN JRTERVAL, MAKE NEXT PREDICTION, 

FECT ET, TIEeS! Go 78 200 

TheT 

JuMePs | 

RETURN 
*ONUBLING TIME STEP, BUT ALREADY FINISHED wITH THIS TIME 
INTERVAL == COMPLITE Rewk AT END OF TIME INTERVAL MINUS 
THE NEW TIME STEP, 

DP} 2SO Pepe 

TYSTe( Tel )ey 

T3=]142 

TUsy{+3 

Tostie5 

ACTRZ)SA(T4Q) 

A(Tu)sa(lo) 

CONTINUE 

SAVFSNT 

SEAVETSTAT 

OTSTi=—T 

JPsTP+]j 

60 TO 100 

END 


aan 


1000 


1190 


2000 


2200 


3000 


3050 


3100 


3200 


3300 


100 
102 


SUBROUTINE LOHPTROZeNSUR NOCH PDATE, Ny NMAX) 
BUILAS VaRyABLE FORMAT STATEMENTS CONTAINING LITERALS 


CUMMON /TACAY CNINTSC1090,17), ENABLE 
CI4MON /TNCBS INDEX,INX2 
DIMENSION 7(1)eNSUS(1) . 
NIMENSTON LABEL(7)/NOLE(135) 
DIMFNSTON LABFIRN(1S) 

IF (N) 3000+1900,2000 

CONTINUE 

N & Ne] 

NPAGE = NPAGE4] 

WRITE (6,[ ABFORM) 

O09 1100 Y2497 

LABEECT) © be 

CONTINUE 

NNCH = (NCaHeL)/1004 

NOH = {0eNNCH 

ENCODE (NCH,104,L ABEL) CNSUR(T),IT=E4,NNCH) 
IFCFNABLEGE.1) CNTNTS(TNX2,9)SNPAGE 
WRITE (6,195) LABEL, DATE,NPAGE 
IFCNMAYSLT IO) GO TI 2200 
WRITE (6,MATETRM) (207),181,12) 
CONTINUE 

N = Nef 

IF (N,GT.TABSCNMAX)) Nad 

RETURN 

CONTINUE 

Tes] 

59 3050 Y2i,13e 

WOLECT) s 44 

CONTINUE 

SECNDE (NMAX,902,2) CHOLECI),TSl—eNMAX) 
DO 3100 Ts1,/NMAX 

TF CHDLECTYNE,14 ) GI TD 3700 
CONTINUE 

he ed ee 

i 2. 

DM 3300 yeyi,NMAX 

WOLECJ) = WOLECT) 

J.& Je4 

TF CROLECTIV EO ,iN 2 GO Td 3500 
le 2 

CONTINUE 

HTLECT29 sie 

T22Tee1. 

HALF C(%2) = IR) 

JI = (§32072)/201 

TF CJT, CELI) Jia 

ENCODE (144,109, LABFIRY) II sH9LE 
12 = #(N#{ 71063 

TSP = (13P4N) Ze 

ENCNDE (10,193,DaTFORM) SP 
RETURN 

FORMAT(SH( 1H, ee T2¢2HXe, 13541) 
FIRMAT({ 3241) 


233 


105 FIRMAT(e(epeeXPSa10)*) 

1g FIRMAT(TAIO) 

1905 FIRMATCIX, TAL0O,5XeAL0,10X,4HPAGE,Y5S) 
END 


234 


IDENT EXP, 
ENTRY EXP, 
EXT SYS1ST, 


* VERSTON OF EXPONENTIAL FUNCTION USED BY COMBAT II TO 
* FLIMINATE CONTROL DATA CORP, PROVIDED PARAMETER BOUNDS, 
Exo0 Eq * 
SAS EXPO 
S44 x1 
3X7 x5 
S47 EXP, 
EY EXP, +1 
EXP S43 Aca) 
NX] x} 
1x0 X2eX] 
banat KL 9X3 
RX2 X04X7 
de X2,E XPS 
EXP? FX3 X1%X5 
PxX0 X6 
x2 X1*"#XS 
SAS A4+Bt 
9X6 X34X0 
RX] XLeXd 
FXG X34X0 
NX3 x6 
3X0 eXOexd 
RX6 X14Xe 
“x2 of 
AX0 Sa 
3X4 aX 2eXxd 
RX7 K64X3 
ZR X3,EXPa4 
$43 AS¢B1 
RX6 X7«X7 
SA2 A381 
AXG u 
sa? xGej{777B+17208 
RX5 X6"X5 
yxa X1eXxd 
$44 TABLE exd 
RX2 X2eX5 
$83 924X0 
RX7 XV%«X2 
FX3 X34X6 
FX2 X3eX7 
FX3 X7/X2 
FXG K1i+Xxit 
lo ay A XUwXxd 
RX0 xX1eX7 
PX6 x0,33 
EXP, DATA fa) 
Uxe 32,1 
Bx6 Xe X6 
843 17318947778 
SA 1 1 
SAS CONST 
SAu 454B1 


235 | 


EXeS 
EXPT] 
EXP3 


EXPa 


EXPR 


EXP6 


CANST 


PO{ 
390 
P00 
TABLE 


32,R3,ExP2 
AS=B1 

Be, B3,EXPh 
EXP7 
B2,80,EXP1 
x1,EXP8 


T5SO00B+SC*TOO LARGE, FLOATING OVERFLOWewE XPS 


SYSiST, 
X1,EXP, 
<1 

50 

oe 

eX{ aXe 
EXP, 
EXP6 
X{=X0 

a 
TABLE#XxS 
X2"X7 
x4eXx0 
17378917778 
X3aX] 


EXP, 
eOFS1L471805590Seu 
#675, 858501045907 
703, 6067UB8B3199{42 
174009005612507312248 
6117692774135676U2008 


OeS7TTOL13S5SB31IAOL9I3E {Sed 
AN, 208137711 9652304E25R 
0, 72135934108 4481 9E1 Su 


172040000000000000008 
£172941325303317461108 
17204271270170765214u8 
{7AENGUZUITF2I3ZUTA5U228 
172046033 7TEN2U3066718 
17204875724U623501106418 
172051377326523305238 
1729532540767 2443 7448 
1720552023631477U7368 
17205720424 34u7TESUN14UR 
172061 2654520425240078 
172063422214052176058 
172065642374625537358 
172070$46336730252258 
{7207254030671 75S64u4u4R 
172075222575052222078 
17T2O7TITTITITIFIFIIFIIV7B 
JAFM/ 
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wt Merete 


SAVE DATA 0 

END 
STORASE USED 116 STATEMENTS 17 SYMBOLS 
MODEL 76 ASSEMBLY 0,066 SECANDS 38 REFERENCES 


237 


XSATE 


JOMAC 


Save 


IDENT XDATE 
ENTRY XDATE 


RETURNS THE DATE 


VFD G2/SLXDATEr 18/1 
DATA 0 

SX6 AQ 

$A6 SAVE 

8x3 x4 

$41 JOmMAC 
“XxX? 42 
3X xiw«Xe2 
3X6 X64X3 
SA6 JOmaAC 
DATE (9) 

SA{ SAVE 

§A0 X{ 

JP XDATE 
DATA 0 

END 
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PRIBPAM ATROUTCINPUT, VITPLIT, FADESSINPUT, TAPE GS )IITPUT, TAPES) 


TRIS PRIGRAM TABULATFS THE RESULTS JF A ®COMAAT JI" 
RUN em "ATR" VERSTON, 


COMMON SXEDEFZS COOLOX(C2)eCO02NMK(2) -CONSOK( 2d /CONUOKX(2),C9NSOK (2,2) 
TeCO2VIK CSA), COSLAK( Se 2d COAL 3K (3,2) -CO214X( 542) C0215 63,262) 2002 
PIX CAp2d, COLBAX(2r2) eCO233K( 24,2) C9 23EX (2,2) C0235 K (2,242) ,C AUX ( 
32),C02U3K(2),CO2UUX(2),602405K(2),C0251xX(2)6C9252xK(2),00253xl2),C02 
4SUX(2),CO25SXC2,2) s C0261 X23, CO262K (2) /CO263K(2),CO264xK(2),C0265x 
S2el pe COBOTXCAse eer eo COUNHK(2),COUNIK(2),COS11x(2),E0512ex(2,2),C0513 
6Xf2,29,C0521x02),C0Se2xK(2) ,CO5S1K62),CO552xX(2,60601x,09603X(3,2 
F),COBNUEX( 2) ,COBD5S X62) pCNO06X(2) -CO607X(2)-CO610K(2),C0611x(2) C061 
R3X(2V,CMOY UK (2), EOSL1X (2), E051 2%(3,2,2) -£ 052 
GX CAV ,FONOIX( 3,2) oFOLOIX( 3,20, FOLN2X (2) sFOLO3SX(2),FO1N4xX(3,2) F010 
SX (Bp PAV, FOLNEX (3,2), FO1N7K (3, 2,2) ,FOLOBX (3,202) ,FOLNIK(2),FO201K(3 
1,302) ,FC2N2X(3,3,2e),FOS01X(2,2), 

HF OBNAY (2, 3,2) oF O303K (2,342) pFOBNUK (2,2) FOSOSX( 2,2) ,F93NEK(2,2/2), 

{FOSATX(2,PYeFOSNRX (242, 2) FOUNG X32)» 

PEAUNAX (3,2) pPFOKOIX( 3,2) rPDONINX( 3, 3,2) rp PO0N2K( 3, 3,2) ,PNON3K(3, 342) 5 
TPOONEXB, Be2dePONINOIX (34262), PHY N2K(3, 252) ,P OI 03K (3,2),00104X(3,2), 
APOAINSX(3,Pde POLOTXC3r2.sPO{ ORK (2,302) P0109K (243542) ,P0301K(202),P 
SO302X(C2r 2d, PO303X C202) ,POS0UX (2,2) ,POSOSK(2p2r2) ePO30bK (2,2) ,P0307 
AXED, Qe Pa pPOBAEX (Be 202) pPOSAUX( Be 2p 2d pPOS2S5X (5,242) ,PO0326X (3,274), 
T CPOZPTX(BeaeUdpPOUDIX( 2d, FPOUOAK( 23, POUOSK(2),FP0404X(2),P0405x (2) 


COMMON SXFMEFILS ROOOLX(2,3,2),RN3Z01K (2,2), ROUOIK(2),ROUN2K(2), 
SROSTIXK (2, 3,2) eROSTAX (242,20) ,ROSTUX (2) pROSTSX(2),ROSTOX (2), 
PRASTIPXY(C2])V,RAOSTBEX (2,2) ,ROSTIX( 2,2) p-ROOOIK,ROGD2K(2),R0HN3XK(2), 
TROGOUX(2),ROEOSX(2V,RO7TNOK (2,2) ,VOSULX (2,2) 6V05G5X(7,2), 
4VOSSLY(2),VO552X(2)-V0601X(3,2)5V9( 382) 


CIMMON SPVS VO3Bp2I Fo AV(10e2),VA(7IN2) pCOOOLP(343,2),COON2P (Ep 3e2)y 
' CONDSP (2221460601 P63,2),9060IP (3,2), 

2006920 (3,2),996035P(342),0960UP( 3,2), 

3 FOLN1P(3,362),F0103P(3,3,2), 
GFO105P(3,3,2).F0106P (5,2) ,FOLN7P (3,2) ,FO{OBP (3,2) ,F0199P(3,2,2), 
SFOL10P(3,2,2.,FO3S01P (2, 3,2) ,FN3N2P (2,32) eF0303P (2,2), 

BFOSOUPE (2, 2V,FO305P(242,2) pF FAINGP( 2,2) pFOS0TP(Cr2e2), 
#FO3212(2,3,2),F0322P(2,3,2) pF OS23P( 3,242)» 
TPOINIPC%, 3,2) 2P0102P(3,3,2),P0103P(3,3,2),P0104P(3,3,2), 
APOLOSP(3E, 2. FPOL0GP(Sr2),POLOBP( 3,2) ,POLLOP(3,262)> | 

* POZOIP(2, 302) oP OS02P C2, 3,2) ,PN3039( 242) pPOSOUP (2,2), PNS05P(2e2e2) 
- _ #7 0402P(342),P04035(3,2),P040UP (342) ,P0U05P (3,2), 
QVABNIE (C2, A pVOUNIP( 342), VOUN2P(3,2) ,VO54{P (242), V0S5S420(7,2),4 
*VO5SUSP(2,2),V060jP(3,2) 


COMMON SPHV/S NVCBRAA DAVIN, 2) ,DVACTO2) 

COMMON S¥NATAS 4O900IP(3,2),A0N02P (3,2) /A0101P (3,352), 

1AO1O2P (3,3, 2),,4N1035P (3,2), ADIOUP(3,2),A40105P(3,2), 

PARLN6E (2, 3,2) pADINTE (2, 3, A), ANBA LO (2, 342) pADSN2P (2,342), ADS0RP (2,52 
B)pANZNGP (2,2) ,4N805P (2,242) pADBOEP (2,2) pANSOTE( 2, 3,2) ,ANSNBP(2,3,2 
4) oAO329P63,3,2) 6 A9322P(3,3,27) -A03P3P (5,2) ,ANS2UP(3,2),AN3SPSP(3e2), 
5£03262(3,2,2) ,AN327P(3, 3,2), ANS 28P (3,372) ,AD401P (3,2), 

FAOUN2P (3,2), AOKOSP( S42), A40U0UP (3,2) pADUOSP( 3,2), AOSOIP( 3,2) 2 ANSIIP 
TOV, PVpANSL APC See) PAOSILSP (2, 3,2) pADSILGP(3,2) p bO5{5P( 2,2), ANSLHP (2,2 
PY,AN517E(2,3,2),40521P (3,2) ,ANS22P (3,2) pAOSSIP (2), aNSS2P( 2) ,AOS533P 


239 


anon 


nononrn 


1000 


oan 


oOndnm 


19010 


1920 


1030 


962) eANSUOP (2), ANSUIP( 2,2) ,A40542P(2,2) ,A05SU3P (2,2) ,ADSUUP(2,2),4955 
#1P (3,2), ANSS2P(3,2) ,A05615(2) ,AOSH2P(2) pAOSESP( 7), ANSHUP(2),F0511P 
10242) ,FOS412P(242) ,ENS21P (3,2) ,ENS51P(3,2),E05952P(3,2),R009jP(3,2,2 
PY,ROOD2P(3, 2), RN00SP (3,2) -ROONUP (3,2) ,RNONSP(2) ,RO0ObP(3,2,2),% 

BZ RNONTP (3, 2,2) Pp ROSOLP (2, Sy, 21 Fp RNSN2P (246342) sROZN3SP (2,2) ,ROS0UP (2,2 
GY rRAZASPE( 2, 2,2) -RAOS0OP (2,2) ,ROSOTHE(2, 272) -ROS21P(3,3,2),R0322P(3,3 
5 92) +RN3Z23P 63,2) -ROZAUP (3,2), ROS25P(3,2) pROSZ2AHP(3,2,7),RO327TP(3 
6223p, RVAO{P (3,23, R0402P(3,2),RO403P (3,2) ,RO40UR (3,2), RN543P (2,2), 
FROST1IE (2, 3,2) 4 ROS7T2P (62,242) ,ROSTUP(2) /ROSTISP(2),ROS7T6P(2),R9577P(2 
BP) eROSTAP (2,2) ,ROSTIP(2,2) pROBO1P( 3,2) + R1602P(3,2) pRNO03P (3,2), R060 
QuP(%,2) 


INITIALIZE "AIRQUT" VARTABLES 


INTEGER § 

DIMENSTON XCMEF(Y),VDATAC!) 

ENUTVALFNCE (VDATAC1L),ANONIP(1,1)) 

DIMENSTMN DSCRPT(100-8),TITS(3) 

DIMFNSIAN X(120,10),TIME(10),SIDE(2),TITLEO(6) 

EQUIVALENCE (XCOEF(S)/6N010K(1)) 

DATA SIDE/10H BLUE DATA,1L0H RED DATA//,ASTRK/1Hw/pBLNK/IH /, 

{ NOVAR/PR3I0/,NCV/I702/ 

DATA TYITS/{OHRUN DESCRI,JOHPTION: 010 / 

DATA NGIF/O/,NGIR/SUSINL/U/ NGAP /SO/pNG2R/I OS oO NM/ {OS ~NS/{S/eNB/13/, 
5 SSASIS/S,NAS/SLTZ pNAU/SOB/S,NASS25/ ~NGSF/S27/pNGSR/3SL/PNGOF/3I 5 
? NGOR/BS/INKXF SESS Ap SKHTB/LS 

REwINS 3% 


CHECK TF TAPES TS FROM wWATR"® MODEL, GIVE ERROR MSG AND 
STMP EXECUTION OF THE PROGRAM IF IT IS NOT, 


REAN(3) AMODEL 
IFCAMODEL NE, 3HAIR) GOTO 99R0 
T=0 

T=I¢) 


PEAD FROM TAPES THE TITLE, DATE, DESCRIPTION AND TIME RANGE 
NF THE "COMBAT IY" RUN, CURRENTLY IN PROCESS, 


READ(3) (ASCRPET( 6K) Ket ,8) 
TFCASCRPT(T+1).NEeSHEND) GO TO 1000 
REAN(3) TITLED, DATEOs TINE + DELT, ERROR, DTINER/DTQUTER, TSTART, TEND, ALP 


PPTNT THE TITLE, DATE AND NESCRIPTION OF THE RUN, 


WRITE(6,2950) TITLEOs DATED 

T=0 

NTIMESEO 

WRITE (6,2952) (TITS(K),KE1,3) 
NTIMESENTYIMESS! 

Isle 

IF COSCRPT(7,1),E9,5HENDY GO TN 1036 
RITE (622953) (COSCRETCI,K),KE1,8) 
TF(NTIMFS,GE.25) GI TI 1010 

69 TO 1920 

loco & tw 2 


OaAIrIaninraIan 


aaanon 


onrnarn 


AOnaInrn 


2000 


2005 


2006 


2009 
2010 
2020 


2022 


9980 
9990 
2950 
e754 
2952 
2953 
2960 
2970 
2990 


REAN A CONTROL CARN AND FRM TAPES READ THE DATA SET 
SELFCTFOD RY THAT CARA, TF THE CONTROL CARD IS A "CHANGE" 
CA&Q5, SET THE SWITCH "SwTR" TH THE VALUE IN THE SECOND 
FIFLOM OF THE CARD (TIME), MAKE SURE THAT THE STARTING 
TIME ON THE CONTROL CARH IS WITHIN THE TIME RANGE OF THE 
"CNmMBAT II" DATA ON TAPES, GIVE AN ERROR “SG IF IT 38 NOT 
AND PROCEAD YO THE NEXT CONTROL CARD, 


REAN(3) TT, CXCDEF CT) + TE1,NOVAR) 
READ(5,2990) A, TIMEL,TYPE,N,S 

IFCEOF(S)) 9990,2005 

TFCA.NE, GHOMANGE) 60 TO 206 

SWTRSTIME 4 

69 TO 2008 

TFCCTIMES LTO), ORC TIMES ,GT,TEND)) GO TO 2800 
TPCTT PES TIMEL? GO YO 2080 

REWIND 3 

PO 20N@ y=es,70SC 

RE48(3) NuUMMyY 

REAN(R) TT, CXCIEF (Ie TE1,NOVAR) 

IFCTT.LT. TIME!) GO TO 2030 


ORTAIN THE VALUE OF "INTV® FROM THE FIRST FIELD OF THE 
CONTRML CARD TO DETERMINE HOH MANY DATA SETS WILL RE 
SkTPPED OVER BEFORE THE NEXT DATA SET IS REAN, 


DFCADF(7,2954,4) DUMFINTYV 
TFCA,EQ,S5HTYPE1) INTVE4 


BRANCH TO THE PROGRAM SECTTON INDICATED BY THE CONTROL 
PARAMETERS "TYPE" AND PNM, 


IF (TYPE, EQ,1HA) GO TO 2030 

TFCTYPE, ‘eo! 14) GO TO 3008 

IF(TYPE,EQ.1HB) GO TO 4ooo 

TECTYPE EQ THR) GO TO 8000 

IFCTYPE,NF.1HKG) GO TO 2hee 

TFON, FO,1) 69 TO 5000 

IF(N,EQ.2) GO TO 6000 

69 TO 7000 

WRITE (62960) TYPE SN 

69 TO eNNN 

WRITE (6,2970) AMODEL 

stop 

FORMAT(THY//6X—~eRUN NAME RR, GALO/ OX, & DATED? *,A10) 
FORMAT(AU,73) 

FURMAT(LHI//1{6X,3A10//) 

FURMAT(1xK/21x,B8A10) 

FORMAT (/S/6X ete eg UNKNOWN SYSTEM CONE. He SMe IME pale Lip ihe) 
FURMAT(/S///% INCOPRECT DATA ON TAPES: *&,3X,A3) 
FURMAT(AIN,FS,0rAl eel!) 


eke aetkeeeeee 


* * 
* A TABLES & 
* * 


eeektankeane 


- 


C 
C 
C 


2030 


2035 


1¢8 <> 


aaran 


2931 


2032 
2033 
2034 


aod 


2036 


TAYTITIALIZE LICAL VARIABLES 


SKTP=0,0 

99 2035 rs1-19 
TIME (T)20.0 

OF 2035 Je1,46 
X(J,1)20,0 


AN FIR UP TD TEN DATA SETS 
D9 2080 121,10 


PUT TN "VDATA" THE INTEGRATED VALUES (VA) OR THE RATES 
ME CHANGE (DVA) TF THE VARTARLES THEREIN, DEPENDING ON 
WHETHER "SWTRY TS POSITIVE OR NEGATIVE RESPECTIVELY, 


TFCSWTA.GT.0) GA TD 2032 
D7 2031 IKJS9,NCV 
VDATACTKJS)EDVA(TKJ) 

G9 TO 2038 

DD 2033 kKYySi,NCV 
VOATE( TKS) eVaCIK) 
CONTINUE 


COMPUTE THE DESIRED DISPLAY VARIABLES FROM THE 
APPROPRIATE DATA, 


TIME(T)STT 
X(V,JIEVINAT+@eNwl yp S)OV(NAJOORN,S) 
K(2,T)SAO5sUP(N,S) 

X(S,T E8057 P(N-S) 
¥fU,TEROOOIPCN,S) 

KO3,TIEROSTIP(CL Ne SIFROSTIP(2,N,S) 
XCU,TISPOOHIP(Ne te S)tROOOIP(N, 2-8) 
X(S,T)ISR00N2P(N,S) 
X(6,TISANNOIPCN,S) 
Xt7,1)2°0003P(N,/8) 
X(8,T)S£ANNHSP(N,S) 

SKTP= SkIPex(7eT) 
X(9,TSPONOUP(N,S) 
09 2036 J2i,3 

X(9e¢ Je ®,TVERNO3S21P(N,J,8) 

KC1 Me Jed, 7T)=ERO322P(N0J,S) 

X(Be Jet, TI Sr (Fe tad, FT) ex((Oe ses, 1) 
KOVOTIEKCHT,TIOXCLOr Lex C17,T) 
(20, TIEX(G,TIEX(10,71) 
K(2{,TIERAZCBPIN,S) 
X(2P,TIERN2UP(N,S) 
KC2T,TIEROZ26P(N, 148) 
X(2b,TYERAZ2GP(N,24S) 
K(25,T)HRNZ25P(N,8) 
X(27,T)ERNZ27P(N, 2,8) 
X(2hypTIERAOZCTP(N, 19S) 
X(2R,TYZANS12PE(N,S) 

D9 2037 Jei,3 

¥C27T+ TeP,TISANINIP( IeN,S) 


2037 K(2ReJa2,T)SANL02P(J,N,S) 
¥C35,T)=AnyO3P(N,S) 
XC 36,TISANLOUPCN,S) 
K(37,TYSAN{OHP(1,N,S$) 
X(3R,TYZANTO6P(2,N,S8) 
X(39,7)=A0105P(N,S) 
X¥(UN,T)ISAOLOTPC1,NeS) 
X(G1,T)2A0107P(2,N,8) 
X(4P,T)EANSISPCI,NeSIFANSISP(2,N,S) 
X(UZ,TYSANZ2TIP( YL pNepSIFAOZ2TP(2A,N, SJ HAN327P(3y,N,8) 
XC UU,TYZANZOTOECL Ne» S)#aAN307TP(2,N,S) 
KOUS,TJEAOS2RP(1,N,S) ¢A032BP(2,N,S) A032RP(34N,S) 
X646,T)SANSOBPC1,N,S)¢A0308P(2,N,S8) 


READ FROM TAPES A NEW DaTA SET CORRESPONDING TN THF NEXT 
TIME POINT, WHICH IS INDICATED BY THE CURRENT "CARD TYPE" 
PARAMETER, (NOTE? NEW VALUES IN ®VA® AND PAVAH) 


ooaIncram 


IFC(CTT.GE.TEND) GO TO 2060 

DN POSH TKISq,INTV 

IF(TT,GFE.TEND) GO TO 2060 
2050 REAN(Z) TT, CXCIER CIS, JEL,NOVARY 


GFNERATE THE RELFVANT PRINTOUT TABLES FOR UP TD TEN 
TIME POINTS, 


orm 


2060 WRITE(6,2910) TYPE,NeSIDECS),CTIMECKI) /Ki=tel0), 
5] COX ¢(K2,1),721,10)7K223,B8) 
IFC SkyP.(E&,!.E"50) GO TD 2070 
WRITE (6.2920) (CXCK3/T),121.10).K329,27) 
WPTTE GK, 2930) (CXCKOeT), 151,10) ,K4e28, 45) 
2070 wWRITE(6,2940) (CXCKSeT),IT21,190),KS2U2,46) 
69 TO 200N 
2800 wRITE(6,2900) TIMEL,TSTART, TEND 
GO TO 2000 
2900 FARMAT(AX,GHTIME,FI0,2e,2e7% ITS HUT JF DATA TIME RANGES,F7,2, 
44H T9,F7,2) 
2910 FIURMATCIHIS/S2IXs THSYSTEMS Af, T$,SX,410 S///5H TIME, 2OX,10(F ALI, 2X) 
Ji pI BCS OH kk ae aa aR) / 
TH YOTALE,2UY,10F10,3/ 
13H NUMBER LOST, 19x, 10F10,3/ 
{OH RESUPPLYS,2LXp LOCKE T, Ap SKOS1H ,L3(L OH RR RRR) / 
164 TOTAL LAUNCHEDS,15X,10F10,3// 
13H AA LAUNCHEDS,18X,10F10,3/ 
2c AA LOSSES DUE TO Abt, 9x, 10FI0,3// 
13% AG LAUNCHEDS,15x,10F10,3/ 
22H AG LISSES NUE TH ¢hbht, GK,1OF LO, S/1H PI SCLOH ke aaanenee) ) 
2920 FORMAT(3{H AG SURVIVING THE ATR RATTLES ,10F10,3// 
22H AG SENT TI THE FRONTS ,9xX,10F10,3/ 
BXe,6HTM Fiae19X,10F10,3/ 
{1X,13HAGATNST SIF 18,7K,10F10,3/ 
{1X,13MAGAYTNST GF ig, 7X,10F19,3/ 
BX eHHTM Fot,19xX,10F 10, 37 
11X,13HAGAINST GIF 28,7X,10F10,3/ 
{1X ,43HAGAINST S2F2¢,7X,30F 40, 3/ 
OX BHTO F3Ra-L 9K 1 0F IN, 3/ 
11X,13HAGAINST SIF 39,7K,10F 10,37 


AM 


Fa 


ornrnyrn 


OopwrvwFFewv= 


243 


aan ganaInnran 


OnonraInrin 


erm 


2930 


29un 


3000 


3906 
3003 


3005 


ww YPwnywrNoeoaAWwW- 


AMw—-* DO DAF NCE 


cwvANv 


11X,13MAGAINSYT S2F3g,7X,90F 10,377 

214 AG SENT TD THE RFARS,10X,19F10,3/ 

"YX, L2HAGAINST SIRG,BX,1OF 10, 3/ 

{1X,12HAGAINST G2kt,AxX,10F10,3/ 

{YX,SYHAGATNST Lit, 9X, 10FI0,3/ 

11X,11HAGAINSY L28,9K,S0F10,3/ 

{1X,10HAGAINSY Stol0xX,10F10,3/ 

{1X , VL HAGAINST 348-9KX,10F10, 3,7 

YIX,LLHAGAINST B23,9K,LOF IN, 8/1 ,L3CLOMakaaackene)) 
FIRVAT(25H AG LOST TD ATR DFFENSESE OX, LOFI0,3// 

JOH LOSSES DIE TD GLFLe,1iX,10F10,3/ 

1SX,SHG2FI9,11X%,10F 10,37 

IS¥,SHGLF2teLiXe,Y0F190,3/ 

{5X ,SHGPF Ot, LEX e 1 0F10,3/ 

1SX,SHGIFBE,LIX,I0F10,8/ 

ISX, SHBAF Be LIX LOF LO, 3/ 

1OX,GMGIRerLiXeLOF10,3/ 

15%, 4HR PR el IXelLOF 10, 3/ 

CTX (SRL GSLs, PORTH, S74 

17%, SHL ets Lik, 1OFLO, 37 

{B8X¥,2N4Seo11Xo10F10,35/ 

{7X,3KRYS,L1K,LOFIT0,3/ 

1TX,BHRAL,LIX,LOFIN S/S 4 pL BCi Oda akakaenee)) 
FIRMAT( 26H TOTAL LIST ON THE GRIUNDE,SKeLOF10,3// 

254 LOSSES AT BL DUE TT #AGy, 6X, 10F19,3/ 

24H LOSSES 47 B81 DUE TT Mt,7X,10F10,3/ 

254 LOSSES AT R2 DUE TD +4G3,6KX,10F10,3/ 


2UH LOSSES AT B2 DIE TD Me, Txe I OFLO, SSI pL BCL OWN eeeeaanrae) ) 


weak Keak 


* * 
* M TABLES « 
* * 


KKK Kea 
D7 3060 Ye4re2 
PROCESS SYSTEM "M1" AND THEN "MOM 


IF¢(T. Fa.) GO TH 3005 


WHEN SYSTEM "M2" 18 YN PROCESS READ FROM TAPEZ A SFT TF 


MEMMSAT TI" DATA CORRESPANDING TO THE "TIMEG" @ONTRAL 
PARAMETER AND TO THE TYPF TF TUTPUT TABLES SELECTED 
IN THE LAST CONTROL CARD, 


RFWIND 3 

Dd) 3006 Ykel,15SC 

REAN(%3) DilwMy 

REAN(3) TY, CXCIEPC JVs Jey,N3VAR) 
IFCTT.LT. TIME!) GI TO 3001 

CANT INUF 


INTTTALIZE LICAL VARTAARLFS 


OF S016 f#einde 
09 3010 K24-10 


244 


3010 


anon 


a | 


ananrn 


3014 


3012 
3043 
3034 


aInrInan 


datngrarroree ais 


TIME Ce re 0 0 
X(J.Kd20,9 


No FIR UP T3 TEN DATA SETS 


SKTP=H.O 
97 3030 Joie 10 


PLT TN "VOATA™ THE INTEGRATED VALUFS (VA) 92 THE RATES 
MF CHANGE (DVA) OF TRE VARTABLES THEREIN, DEPENDING ON 
WHETHER "SWT8" YS POSITIVE OR NEGATIVE RESPECTIVELY, 


IF(S4?TS. GTO) GO TO SOG? 
OM 3011 IkKJe1,NCV 
VOATACTKJYSDVA(CTKI) 

GA TA Boge 

DO 3013 Ik yeY,NCV 
VOATACTKIVEVACIKS) 
CONTINUE 


COMPUTE THE DESIREM NISPLAY VARIABLES FROM™ THE 
APPRIPRIATE DATA, 


TIME CI VSTT 
X(L,SVEVOML +758) 
KFA, TIEROSUIP(CIT»,SIFhbOSUPPIT,SI4ANSUSP(T,S)+A05SU4P(I,S) 
Xf3,J)S20578°(1,5) 8 
X(U,JISV(NM#T,S) 
K(5,J sadSaipct,s) 
X(6,J)SR0S78x¥(1,S) 
X(7,J)=V(NS,S) 
X(R, J VSAOSUOP(S) 
SkKyIPs SKTPex (U4, J) 
IFCYC7,JI.GT,1eF2e0) X(9,JS)EVOSUAP(T,S)/XC070J) 
X(010,J)SVNSUSP(1,8) 
¥(Yi,IevosoyP(T,S) 
XC12,J)=R054yP(1,8) 
KCLS,SVSRANZOLP (1,158) 
X(1Y4O,I)ERNZOPP(IT,1+9) 
XCY5/,SVEROGOYP(1T,2¢S) 
XC 16, S)V=EROBNAP(T,2,/8) 
XC17,SVERO3N7P(1,3,8) 
X(1A,TVEPOSNPP(T, 3,8) 
K(19, 1) =RO303P (7,8) 
XC20,S)EROSOGP(I,S) 
X(29,I)ERNZ05SPCT,1,8) 
X022,I,S=ERNGN5P(1,2,8) 
XPT, SIERNTNBP(T,S) 
x(2U,S)SRP0307P(3,1-8) 
X(25, JISRNZO7TP(T, 208) 
X( 2b, TISANSUPP(T,S)¢A0SUSP(T,S)+hN5duP(T,S) 
X(3%, SVSAOSUZPCI,8) 
X(3u,1ySan5uyP(T,S$) 
X(SS, TISAOSOSFCL p20 S) 
X¥(3H,SSAN7TN5P (2,148) 
KC37,J)EAOB2GPCI,IeS) 
X(3R,3)24N326P(2,7,8) 


fce 3.08 £3 


CF £1) €3. C8 C2 


X* 39, 7)SANT2KP (3,18) 
x00, TySa0S4eP(T,S) 
X(GfeS)2A0533P(S) 
¥(U2,J)=ansduP(y,S) 
3020 x27, 3)SANS4OP(S) 
X(2R,J)=FAN306P (1,8) 
X(29,3)=540306P (2,8) 
X(30,J5)=4N325P(1,8) 
x34, 5)=40325P(2,8) 
X¥€32,3)240325P(3,S8) 


READ FRIM TAPES A NEW PATA SET CORRESPONDING TO THE NEXT 
TIME POINTs WHICH IS INDICATED BY THE CURRENT "carp TYPE® 


PARAMETER, (NOTES NEW VALUES IN ®VA"™ AND PRVARM) 


IF(TT.GE, TEND) GI TD 3ou0 
DO 393M TKS, INTV 
IF(TT. GF, TEND) GO TI 3000 

BO30 REANC3) TY, CXCIEF (CS) -K2t,NDVAR) 


TF SOME LAUNCHERS ARE STILL FUNCTIONING OR THE SYSTEM 


PRMCESS IS "Mi", GENERATE S8LOCKS MF PRINTOUT CONTAINING 
THE VALUES DF SELECTED VARTABLES FAR UP T9 TEN TIMF POINTS, 


TN AMY CASE, OMIT CEPTAIN BLOCKS IF THERE ARE ND 
FUNCTIONING LAUNCHERS, 


S040 IFC( SKIP.LE.1, E250), 4NN,C(IT.E9.2)) Go TO 2000 


MEITE TE, 3910) TeSTDIECS)p(TIMECKI KEL IOV, COXCKI KI eKE1,109,K1E108) 


IF CSKIO.LE  L.ESS0) GO TO S050. 

MRITEC HK, SO2VVCCX(KL KI, KELeS0),KiS9,12) 

WRITE (He S9OS0)((X(K1,K),K21,109,Kie1e,26) 
3OSO WRITE CH, 3940) CCXCKI KI, KE1,10),K1227, 32) 

IF(SkKTOVLELI,FeSn) SO TN 3060 

WRITE (6, 3959) 0C(X(K1,K),K541,10),"K1=33,42) 
3060 WRITE (H,3960) 

G9 TO 2900 


S910 FORMAT (THI //21X,BHSYSTEMEM, TL ,5K,ASN////5H TIME, 26X,10(FB,102X)/ 


{eR ,VUC {DR eee ae) / 
TH TOTAL2,24X,10F10, 3/7 
21H NUMRER LOST OR YSEDt,10xX,10F10,35/ 
10H RESUPPLY&,21Xs100F7,0,3KI// 
OH TATAL Lt,peex,10F10,3/ 
{3H NUMRER LOSTE,18X,J0OF10,3/ 
JOH PESUPPLYS,21X+100F7, 0, 3KIS/ 
GH TNTAL Ste22Xef0F iN, 3/ 
13H NUMRER LOSTQ-IUSx,LOF LO, SSIN pL SCL OHREKA RRR EH) 
3920 FORMAT(16H NUMBFR “4 PER $#,15X%,10F10,3/ 
' 314 NUMBER IN TRANSIT IN REAR? riOF {0,37 ; 
? {GH NUMRER PFR LBL TX, 10F10, 3/10 pL 3CLONRe eke eReER) ) 
3930 FORMAT(IRH TOTAL M LAUNCHF OE, 13%,10F10,3/ 
{ 21H NUMBER LALNCHED AGAINST GIFis -10F10,3/ 
? P5¥,6HGPF LS »LO0F10,3/ 
% PSX,6HGIF OS -INFL10,3/ 
ti 25X%,6H4G2F 28 21 0F10,3/ 
25%, 6HG1F 3 -10F10,3/ 
PSY, 6HGOF SL s{OF10,3/ 
26X%,5HGIR: ,LOF 10,37 


onus TFrnenw~ 


NFS 


246 


26X,5RG28 ,10F10,37 

a7Te, AHL ie elCr TO. S/ 

P7X,GHL Ot eLOFL0,3/ 

PAY, 34S: ,10FI0,3/ 

P7X,4HRIt -LOF10,S/ 

27X, UHRA PLOPLO,S/IN ZS (LOK aaa eee) / 
fod TOTAL “ LOSSESt,15X%,10F10,3/) 

3940 FIRMAT(16H TATAL S LOSSES!,15X,10F10,3/ 

11M NUF TD 41 g,20X,19F1053/ 

RX, BHMPE, 20K, 10710,3/ 

Rx, SKATE, 20X,10F10,3/ 

RX, ZRAPE,20K, {OF I0,3/ 

RY, 3%HABe,20X,1)0F10,3) 

3950 FORMAT(C26H 4 LOSSES DUE TO S LOSSES!,5X-10F10,37/ 
{oo TOTAL L BOSSES? AS¥e iO 6537 

114 NUE TD Wde,20X,90F10,3/ 

RY, SHMPE, 20K, I OFL0,3/ 

RY, THAY,20K,10F10,3/ 

RK, BHAPE,OOK,10FI0,3/ 

RX, 3MASE,20X,10F10,3/ 

26H * LOSSES DUE TO E POSSESS? Ske 20F 10,477 
PIH TOTAL G2R ATTRITIING, 10X,10F10,3/ 

3i4 “M LOSSES QUE TD G2R LOSSES: shOF TO, 3) 
BIBO0 FIURMAT (NH , RCL OHKe eke eee) ) 


cwv—s ts OD 


ySenwy— 


cru 


opwsF J 


keke kk ek tank 
* * 
* 2 TARLES *& 
* * 
kkkkeetaaekeenkek 


TRITTALIZE LOCAL VARTABLES 


TUE) £2.03-O £3 £0 od 


4000 DD 40?n 121,10 
DY 40en J21,34 
8020 x(J,1)20,9 


C 
G Do FOR UP TD TEN DATA SETS 
i 
DY 4Oon ts¢,10 
TIME CT)ST?T \ 
C 
G PUY Iv "VOATA" THE INTEGRATED VALUES (VA) OR THE RATES 
si MF CHANGE COVA) OF THE VARSABLES THEREIN, DEPENDING ON 
C WHETHER "SWTRA” TS PISITIVE JR NEGATIVE RESPECTIVELY, 
ys 


TF(SWTR.GT.9) GO TO 4022 
DM uoeyq TKJeteNCv 

GOP, VOATACTKSISOVACTKI) 
69 TH ene 

4022 DON 403 yRysieNCv 

4023 VOATA(TKJISVACIKS) 

4O2U CONTINUE 


COMPUTE THF DESTREN HISPLAY VARIABLES FROM THE 
APPRIPQTATE DATA, 


FU Cru cv Cy 
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OE ee ee S| Se 


Nom omn 


Tk £2 €3 


&40%O 


4035 


4040 


4050 


4060 


4910 


rnmAowvAvV= 


> a) 4035 MM=1,2 

M=(MMef Jehu 

OO 4030 Jetes 

KoJeomM 

X(SeK,TISVINAJOMM e2t2el,S) 

X(DeK,TISAOSLTPOMM, JS) 

X( 124K, TIEROSTIP(M4,J,S) 

KF20¢K,TIZRANDO6P(S,4M,S) 

XCQ2REK, TISROOOTPE (CS, 4M, S) 

X(BL4K, 7) SFO0323P (3,105) 

X( fe, T)SV(NQ4%,S) 

X(2¢M, 1) SV(NS34%M,5) 

X(344%,7T)SR20700X(4M,S) 

K(U+Me TI ECOOO3PCMM,S) 

X(S#*,TIERNONIP (Le MMe SVFROOOLP(2,4u,S)FROOOIP(3,MM,8) | 
X(9*M, TIEX(VOHM, TIX LL eM, ] eX { 264,71) 
X(1644,T)SVv(NAUeuM,S) 
X(1744,7)=R0572P(44,2,8) ! 
X( PREM, TISFOSLLP(MM,S) 

X¥(1994,T)=AN515P (44,8) 

XCONe4, TSK CALeM, TI+X( 204M, J )exCesem,]) 
Xf 2PUeM, TISVINASEMM,S) i 
X(254M,T)=R0572P(M4,3,8) 

X(2H4%, T)SEN512P(0M4%,S) | 
x(2744%,7)=A0516P (44,58) 

X(2RHM, TIEXC 294M, IT) +X (30OM,T ex (31 0M,1) 


READ FROM TAPE3 A NEW DaTa SET CORRESPONDING TO TRE NEXT | 
TIME POINTs WHICH TS INDICATED BY THE CURRENT "CARD TYPES 
PARAMETER, (NOTE: NEW VALUES IN "VA" AND "HVAN) 


TFPCTT.GTerEND) Go 1d &o5¢6 

DT “OUn YK ISI, INTV 
IF(TT,GE.TEND) GI TI 4050 
REAN(Z) TT, CXCIEFCI)/J=t,VIVAR) 


GENERATE THE RELEVANT PRINTIUT TABLES FOR UP TQ TEN 
TIME POINTS, 


D0 4060 ME1e2 
KI=E(Mwj)wedue] 
KPEK{o4U h 
WRITE (He U910) Me STDECS) A CTIMECT I, Tel, 10, CCK Seo TEL ei 0) SEKI, K2) 
K{=K24{ 
KPEK?P OR 
WRITE (620920) (CXC JeT)-%21,10),Jek1,Ke) 
K{=Ke 44 
K2=K24 41 ; 
WPITE(6,U930) (CXC Jel) -TE1,103,JEKi-K2) 
69 TO 2900 
FIRMATC(TH{//21K,BHSYSTEMEB,T1,5X,A10////54 TIME,26X,10(F 6,1 72XKd/ 
IK pL SCL akehakeeee) / 
134 NUMBER JF Bt,18xX,10F10,3/ 
19H NREPATRED DAMAGE ,12X,10F10,3/ 
1BH RASE REPATR RATEL,13K,10F10,3/ 
BiH LAUNCH DEGRADATION FacTaRy ,10F10,3/ 
23H TITAL AIRCRAFT LAJINCHE,BX,10F10,3// 
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a 


OrInonrnaarInInan 


aan 


Ur C2 C2 Cv 


TF NEeavAnw~-~s OFD4 


194 NUMBER JF AL ON Age 12xX,19F10,3/ 

AX, OHOF Art, L7X,10F 10, 3/ 

RX,KHME ABELIIX,L10F 10,37 

17H TOTAL 43 LOSSESt, 14x, JOFIO,3/ 

TX,11HA13 LISSESH-13X%,10F 10, 3/ 

TX,LIHAPR LISSESLeL 3K, 1OF10,3/ 

PX,LIHAZB LISSESte 13%, 10F10,3/ 

21H RESUPPLY RATE OF A€Le. 10k, 10F10,5/ 

21H RESUPPLY RATE OF Ale, LOK, 10F10,3/ 
21H RESUPPLY RATE DE ASS, LOK, IOFLO, S/IX LSC LON keer eeeen) ) 


6920 FORMAT(SOH TATAL AUEe21X,10F 10,37 


- 


154 RESIPOLY RATES, 16K, 10F10,3/ 

19m TOTAL EXPENDITURES, 12X,10F10,3/ 

BiH TOTAL ASSOCIATED ATTOTTIAN, 119F10,3/ 
PT4 ATRORAFT LAUNCHED WITH AUG, 4X, 10F10,3/ 
Gk ase,27¥,10F10,3/ 

Uw A2E,27X,S0F10,3/ 

UX ASEe2AIKoLOFILO SSL X13 One aeeeeaeee) ) 


U93O FORMATC JOH TOTAL ASS 21K,10F10,3/ 


5000 


5010 
5020 


50214 


eaoaomvrrwrN ocwn- 


{5H RESUPPLY RATES, 16X,10F10,3/ 

19H TATAL EXPENDITURE: ,12x,19F10,3/ 

Vike TOTAL ASSICIATED ATTRITION: 710F10,3/ 

27H ATRERAFT LAUNCHED WITH AS5¢,UXK,10F10,3/ 

GH aAlt,27KxX,10F10,3/ 

UH £2e,27x,10F10,3/ 

Um AS!E,27K,10F10,3/ 

PSH, FRACTION OF ALG WITH A5g,6X%,10F10,3/ 

PSH,FRAETION OF ACG WITH ASer,OX,10F10,3/ 

ASH, FRACTIIN OF ASG WITH ASEpOXeLOFLO, 3/1 Xp LB ( LON ween eeee) ) 


kkk kke kek ete 


* * 
* Gt! TARLFS « 
* t 


Keke kek ete eenkse 
INTTIALIZE LOCAL VARTARLES 


D7 5070 T=1010 
97 S010 Je1,92 
X(J,1)20,0 
TYMF(TYS0,0 


Ny FOR UP TD TEN DATA SETS 
DY 5050 11,10 


PUT IN "VOATA" THE INTEGRATED VALUES (VA) OR THE RATES 
MF CHANGE (OVA) TF THE VARTSRLES THEREIN, DEPENDING ON 
WHETHER "SWT3" 78 POSTTYVE JR NEGATIVE RESPECTYVELY, 


IF(SW7T3,67,9) GO TI Sf22 
99 5024 IKJ21,NCV 
VOATACTHKJSONVACT KS) 

G7 TI) 5024 


S022 99 50P3 Ik Jst,NCV 
S023 VIATACTKS)EVACTKJ) 
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5024 CIATINUE 


CaMplUTE THE DESTREN DISPLAY VARTARLES FROM THE 
APPROPRIATE DATA, 


ce €n 3 te 


TIME (T)STT 
XC2,TISVINGLF 41,8) 
X(3,JT)SV(NGiIF 42,8) 
x(U,TIeVenGgiFreseS) 
X(S,TISV(NGIR-S) 
XCL,TSX(C2,T¢XCSeL)¢X(b,194¢X05,7) 
XC7,TVSAOSOTPCieS) 
X(B,T)SANSN1P(2,S8) 
¥(9,7)240591P(3,8) 
xf19,7T)849531P(8) 
XCH,TISX(7,TI#K(B,TI+X(9,7Tex(10,7) 
XOV1,7TYSROS7TUPCS) 
X(C13,TISROHNIP(1,S) 
Xf 14,TYEROHNIP(2,8) 
Xf15,7TVER0605°(3,S) 
MCV2 eT SKC eS, Pew Oh, T)excrSs 1) 
X(J6,TISVINXF 41,5) 
X(17,TIBV(NXF 42,58) 
Xf{R,TIRVEINKXF 43,58) 
X(19,T)=CM601%x 
X(20,T)=R9601X 
xf2t,T)2C0601P (1,38) 
X(22eTIECNGOIP(2,S) 
X¥(23,7)=C0691P (3,98) 
X(2U,TISFOBOILX(1,S) 
(25,1 SF 061 X(2,8) 
XC 26,7T)2F0601X%(3,8) 
X(27,TISNV(NXF 41,8) 
Kf 2R,TIENVOINXF 42,58) 
X(29,TYEDV(NKF 43,8) 
D9 SO3H Jei1.3 
Ke(Jet)e9 
X(3NeK, TISAOSOLP (I, S) 
XO 314K, 7TISaNuh1P(J,S§) 
X( 324K, 1) =atud2P(J,S) 
X(33eK,y)2aA0U03P (5,3) 
X(BUeK, TISANZOLIP(1,I5,8) 
X(BS4K,TISLOBNIP (2, 35S) 
X( BRK, TIYSANZALP (163-38) 
X(37eK,Y)SA03S21P (20508) 
5030 x¥(3ReK,79240321P(5,5,8) 
X(57,7T)EA90534P (8) 
¥(58,735AN303P (1,8) 
¥(59,1)2403039(2,8) 
X(60,T)SanzesP(i1,S) 
X61, TI=EANZC3PC2,S) 
¥(62,7)=49323P(3,5S) 
97 S040 Je{r3 
X(624¢),T)20N0601P (30S) 
X(654#J],7T)2v0601X (0-8) 
5040 Xfo9eT, TISR0B01LP(I,S) 
X(69,7)22H02xK(S) 


K25eS 

S$S=s3eS 

990 S06, J21,10 

X(724¢53, 7 )2VCI,SS) 
5041 x(8245,7)2aV(J,S) 


READ FRIM TAPES A NEW DATA SET CORRESPONDING 19 THE NEXT 
TIME POINT? WHICH TS INDICATED BY THE CURRENT "CARD TyPE® 
PARAMETER, (NITE NEW VALUES IN "VA" AND *"DvAR) 


oneal © 


IFC(TY GE. TEND) GO TD 5060 
S71 5050 IKJEqeINTV 
IF(TT.SE.TENS) G3 T3 Sono 

S050 RFAN(3) TT, CXCIEFC IJ) + J£1,NOVAR) 


GENERATE THE RELFVANT PRIANTIIIT TABLES FOR UP Th TEN 
TIME POINTS, 


C? CV er a0 


5960 4RITEH,591%) STDECS)-(TIMECKI, KE, 10) 60 (XCJeT),TEL,199,JE4 015) 
wWRTTE(5,5920) (OX0J-1),121,10),J3816,29) 
Da SOUTH Kad aS 
K's(Ka{)*9450 
Ke=Ki +8 
5070 WRITE HsS9S0K AC (XC SeT),TEL,10),JaK1,Ke) 
WRITE (6,5940) ((XCJeT),721,10),5257,62) 
WRITE (6,5950) COX€JeIT),1=1,10),5263,72) 
WETTE 16,5960) ((X0J,1),721,10),3573,82) 
WRITE (6,596!) (CXCJeT),725,10),J283,92) 
GO TO 2nno 
S910 FIRMATECLRYS/S2LX¢ GHSYSTEMEGI,SK,ALOSS/S/5H TIME, CAKAIOCFE RL ,2X)/ 
1H ,S3C LOH kaka eee ee) / 
7H THVALE, 26%, LOF 10, 3/7 
oH AT Fits2eX,10F 10, 37 
Ou AT F2%t,22X,10F10,3/ 
9H AT F3IE,22X,10F10,3/ 
Rid IN Ree 23x, LOF10,3// 
{44 TOTAL LOSSESts 17%, 10F 10,37 
9H AT Fit-,22X%-10F10,3/ 
gH AT F2%,22X,10F10,3/ 
oy AT F38,20X,10F10,3/ 
Ri IN REPP3XeIOFI0,3// 
104 PESUPPLYE,CIX+1LOCFI, 0, 3KIS/ 
{7H MOVEMENT R T7 FE,14X,390F10,3/ 
OH TH FUtpeess LOR LO, 5/7 
ow TN Fos,e2oxr10F10, 3/ 
9H TA FZP,22X,IOFIN, 3/1H ,L3(1OHakeakeeeee)) 
S920 FORMAT( POW FEBA POSITION (F4)t,13K,10F10, 37 
1SY¥,5H(CF2A0E TIX L OF IN, 3/ 
1S¥,SHCE 32,1 X,10F1N, 3/7 
Z{H SHAPING FACTIR FOR FFBA MOVE: -I1OF10,3// 
PU MAX FFRA MOVEMENT RATER, 7X,{0F10,3// 
ZiH R FACTIR FOR FEBA MOVE CF): -LOF10,3/ 
PUX,THCFeSP ,LOFIO,3/ 
PUY, THIF 3S pLOrLO, S77 
AH FRACTIDN OF MAX FERA MAVE MF YTS 
20H COMMANDED BY F4t,93KX,10F10,3/ 
{7X¥, SRF St, 11%, 10F10, 37 


FFeww——-#F BBA FMEWN - 


ee OPN TFMEA VU= 


251 


ites - , aneiiemenees i | 


{ 17X,3HFUL,11X,10F 19, 3/7 

? {8H FERA RATE AT Fie,13x¥,10F10,3/ 

3 1S¥,3HF OL, L3X,10F 10,37 

4 ISK, SHE SE, L 3X, LOF IN B/1H PLB 1 Nd kaka aeene) ) 
5930 FORMAT(1PH LOSSES AT F,YpethHeei 7X, 1L0F10,3/ 
144 DUE TO Gitel7xX,10F10,3/7 
11¥,3HG5S8,17K,10F10, 37 
11X,3HGOS,17X,10F 10,37 
11X%,3HM{t,17X,10F19,3/ 
11%, 3HMAE,17X,10F10,3/ 
F1X,3HALE,17X,10F 10,37 
11K, 3HAPE,I7TX,10F10,3/ 
11X,3HABE,17X,10F10,37) 
S9U0 FORMAT(13H LOSSES IN Re,LAX,LOF10,3/ 
{GH AUE TO Mleel 7X, 1O0F 10, 37 
tt, Bema, 17K, 10F10,3/ 
11%, 3R448,17X,10F10,3/ 
$1X,3H423,497X,10F 10, 3/ 
SIN, SHAZE,LTX,SOFIO B/LH ZLB CL Odea eeken) ) 
S950 FORMAT(2{H DEMAND FOR GY IN Figo LOX, 10F10,3/ 
SAX, 3HFO28,19XK,10F10,3/ 
YAY, 3HFSE,10X,10F 10, 3/7 
OSH MAXIMUM USABLE GY AT Fig, 6X,10F10,3/ 
POX, SHEE, OX,190F10,3/ 
22K, 3HF3E,OX,10FS0,3// 
BLH MAXIMUM MOVEMENT OF G1 R TD Fer LOF10,3// 
PUH MOVEMENT OF G1 R TD Flg,7%X,10F10,3/7 
P{X, BHF OL, 7X1 0F10,3/ 
OLX, SHE SE, TX eLOPLO LS/SIN Z,L3(1L OH aaa KK eee) ) 
S960 FURMAT(IXS/S/IX LSC LOH eae eke) / 
U6X,22HCENTRAL COMMAND SYSTEM/{ K/L 3(LOHRRRRR RRR RH) / 
PUH NUMRER OF TARGETS, TYPEe,/ 
19OX,SHRLF Lt, TX, LOF 1037 
19X,SHGIF2t, 7X, 1OF10.3/ 
L9X,SHGIF SR, 7X, LOF10,3/ 
COX, 4HEIRs ,7X,10F10,3/ 
PLY, BHLYS,7Xe10F10,3/ 
21%, 3HL 28, 7Xe10F10,3/ 
$9X,5HG2F Lt, 7x, 10F10,3/ 
LOX, SHGOF At, TX+LOFL0,3/ 
1{9X,SHGOF tp, TXe1LOF 10,37 
20%, GHG2Rt+ 7X, 10F10,3//) 
S961 FORMAT(2RH NUMBER JF ACQUIRED TARGETS#/ 
P3X,AMGIF IE = 10F10¢3/ 
O3X,RHGYF OY elOF10,3/ 
OSX, BHGLF SE FAG IO, 3/ 
PUX, THER: 2 L0F10,3/ 
PSY, G6HI 4? e1{0F10,3/ 
PSX, 6HI 28 #1 OF10,3/ 
P3Y,AHG2F{: 410F10,3/ 
23%, RAGE Of LOF 10. 3/ 
PBX, RHGOF 3 e1OF10,3/ 
PUX,FTHRAR: PLOF LO, SSIX,L3C1LOHaaaeaeaeaee) ) 


zuwnMy- 


pnyarwm 


Ao wwe 


TNEAW--O NOAV=— ORNTFTMNOWV = 


cavAvr Fe ONAN VY 


KaRKKKaE KKK KEE 
® * 
* GP TARLES « 


oann 


NOnaaon 


ocm 


aannnn 


aAaagaan 


6000 


6010 
6020 


602} 
6022 


6023 
6024 


6030 


* * 
teekkkeaeteeate 


TINJYTALIZE LICAL VARYARLES 


97 4920 121919 

DD 6010 Jst.64 
XOJ,7)=20,0 
TIMF(T)=0,0 
Swrtesn 

IF(S,87.2) SwTCs} 
IF(S,GT,2) SeSe2 


09 FIR UP TD TEN DATA SETS 
DD F040 TH#t549 


PUT IN "VOATA" THE IMTEGRATEN VALUES (VA) SR THE RATES 
MF FHANGE (DVA) TF THE VARTARLES THEREIN, DEPENDING ON 
WHETHER "SwT8" TS POSITIVE OR NEGATIVE RESPECTIVELY, 


IFCSWTR, GT.) GN TD 6020 
DD 6024 KysseNCV 
VOATACTK IV SEDVA(CIKS) 

67 TO gfe4a 

93 6023 IkJe1,NCv 
VOATACTKJYeVACTKJ) 
CONTINUE 


COMPUTE TRE DESIRED DISPLAY VARIABLES FROM THE 
APORDPRIATE DATA, 


TIME (CTISTT 

OfPu,NwFOS21x(S) 

DD A030 J2ie3 

K(LeT,TISVINGCF 45,3) 

IFCSHTC NEL) XCLHI,TIEDIVINECKC LHe IeLIOVINGIF SJ), SI#N) 

XCHOHT,TISAOS2IP CI», SIFADS22P (I, SIFENS2IP(I,S) 

¥CLSeT,TISRIGN2P (5,8) 

X(S,T)2V(NGER-S) 

IFCSWTC CNEL) XCSeTIEDIVIDECX (OS, 1T),QeV(NGIRGS)) 

XC1O,TIZANSS2P(S)+AOS35E(S) 

MOV, TISEKC2,TIMKCSeT VOX (OU, TEX (5,7) 

IFCSHTC NES) XKCLPTISIIVINECVINGOF 41, SI¥VINGCE4+2,S)eV(NGOF+3,S) 4 
VONG2RS),QRCVINGIF et ,S)HV(NGIF 42, SIFVI(NGIF 4 3,SI4V(NGIR,S))) 

KC oeTIEXC7T,TIHXCBelTIFX(9,T) 4X (19,7) 

XC19,T)SCOBO7X(S) 

¥(12,T)=RN575P(S8) 

KOLBpTIEX7YU,TIeKCLS pL exX1b,T) 

XFL, TI=EENHS2LP(Y,S)+A0521P (2,8) 4AN524P (3,8) 4A0532P(8S) 

DO 6040 Jete3 

K=( Jot )*8 

XC1R4+K,TIHAN5SeYP(I,S) 

X(19#K,7T)2a0u0UP(S,S) 

X(ON+K, TISANLOSPE(S,$) 

X(214«,7)2a0302P(153,58) 

KX(27P 4K, TISANZN2P (2,558) 


X( 236K 
X(2U4K 
6040 X(254«K 


x(50,7 
x(S52,7 
YESS at 
x(etes 
x(Su4] 


x(Sa,? 


©) ¢3 ©?) €2:£2 


6060 REAN(S 


aNnrnaa 


6070 ¥PITES 
WRITES 
DD 604 
K{=(Je 
KOSKi+¢ 
60RO WRITE 


YEENS21P(2,8)eA0522P(2,8) 


KOSt,T)SE9521P(3,S)+A0522P(3,8) 


y=AN533P(8) 


X(UR,TISX(UI,TI+#X(S0eTIeXO51,794x(52,7) 


Y=ECNHN6X(S) 


x(S5U,T)SFO5e1X(S) 
09 6050 J21¢38 
el F2VOGOIP CU. S2 


»1)390602P(J,S) 


6050 ¥ (584 T, 7 ERN6502PF (3,8) 


J=ER0603X(S) 


REAN FRIM TAPES A NEw MATA SET CORPESPONDING TD THE NEXT 
TIME POINT, WAICH TS INDICATED BY THE CURRENT "CARD TYPE" 
PARAMETER, (NITES NEw VALUFS IN MVA® AND FSVANDS 


IF(TT.GE.TFEND) GO TO 6070 
DT AOAN TK IEE, INTV 
IFCTT.GE.TENS) GI TO 6070 


) TT, CXCIEP CII», Jet,NavVaR) 


GFNFRATE THE RELFVANT PRINTOUT TABLES FOR UP TN TEN 
TIME POINTS, 


626930) SIDECSI+(CTIMECKI Kel ,I6 eC (XC Je,T),JEL-19), Ji 216) 
626920) (X(17,1),181,10) 

0 Jeie3 

1 )*BelB 

ii 

606930) Je CCXCKe TI ,TELe 10) ,KEKI,K2) 


WRITE (6, 6940) (OXCJe1),TE1¢10),3202,54) 


«RITES 

GO TO 

6910 FORMAT 
{4 


were Ovw FNC AW 
| 
x 


~ 
—_ 
°o 
zx 


ae ate 


626950) COKCI,19,721,10),0255,64) 
2700 

CLHLSS2LX ep SHSVYSTEME GO, SK, ALNS//S/SSM TIME COXFIOC FRI 6 eXd/ 
pL 3C{Obaekaeakaeeae) / 
TOTALS, UX, 10F10,3/ 

AT Fige23xrl0F10,3/ 

AT Fere23xr10F10.3/ 

AT F3p,23Ke10F 10,37 

IN R1,2UX,S0F10,3// 

TOTAL LOST OR VSEDS, 11K, 10F10,3/ 

AT F!g,23K,19F 10,37 

AT F2se23K,10F10,3/ 

AT F3ge23x,10F10,3/ 

IN R?,24UX,S0FL10,3// 

PORTION OF G2 TO BF PEPLACFD!2 -19F10,3// 
RESUPPLY GP ,eLXol OCF 7, 0e 3KIS/ 


254 


nnn 


»L2AN322F (1,578) 
»T)sads22P(2e,J,S) 
oT)340322P(3,5-5) 
X(42,Ty=AaN532P(8) 
X(U3,TYSANZOUP(1,9) 
XC44,T)SANZ0GP(2,S) 
X(4US5,T)YSANZCUP(1,S) 
XfU6,TYSANZ2UP (2,3) 
¥(O7,FysAqzeaP CS, S) 
K(U9,TYSENS2YP(1,S)440522P(1,/S) 


4 20H MOVEMENT G2 R TO Feet11X,10F10,3/ 

§ {SxX,6HTN Fis,10X,10F90,3/7 

4 1SX,6HTD F28,1O0X,10F10,3/ 

3 LSX,6HTD FSE,LOX,LOFLO, S/H ZL BCL OH ewan eekaen) ) 
6920 FIRMAT(IUH TOTAL LISSES#,17K%,10F19,3) 
6930 FIRMAT( 7H AT FeTleloe, 22x, 1oFio,3/ 
154 NUE TD GStr Lox, 10F10,3/ 
12%, 34G6t,16X,10F10,3/ 
12K, 3HM1,15X,10F10, 37 
12%, 34M27,16X,10F10,3/ 
12X,3HA{E, LOX, 10F10,3/ 
{2X,3HAPt,16X,10F10, 37. 
12X,3HAst,16X,10F10,37) | 
6940 FARMAT( AH IN RepeBX,{OFI0,3/ 
{Sw DUE TA MLtelOx,LOFio,3/ 
12¥,3HM2E,156x%,10F10,3/ 
12X,3Hoys, LOX, LOF10,3/ 
{2X%,3HA22,660X,10F10,3/ 
12K, 3HASE, LOK, 10F10,3// 
3y4 TOTAL USED BY IR LOST KTH G13,10F10,3/ 
oH AY Fiteeexs VOF 16, 57 
OH AT Fare22xrl0ri1o,3/ 
9H AT F3t,22X,10F 10, 3/7 
RH IN Rep23xXelOFl1O,3// 
214 NUMRER OF G2 PER G14,30x,10F10,3/ 
264 NUMRER DF G2 USED PER Gite SKeLOFIO,3S/IH ,L3 (10H eeneenewen) ) 
6950 FIRMAT( {UH DEMAND AT Fie,17x,19F10,3/ 
$1X,3HF2t,17X,10F10,3/ 
11%, 3HF3r,17X,10F10,3// 
27H MAY MOVEMENT OF G2 R TO Fe,UX, L0F10,3// 
21H MOVEMENT G2 R TO F1g,§0K,10F10,3/ 
16, BHF 21,10X,10F10,3/ 
(RX, BHETE,LOX,10F10,3// 
26H MAXIMUM G2 DESTRED AT Fig,SxyJOF10,3/ 
23K, 3HF29,5K%,10F10,3/ 
PUK, BHE SE, SK pL MELO BSL eI BC {OH eae ekeeean) ) 


cCwnw = 


ee ame i) 


wU—- €#F O WUPNW PFN eC AW 


OrywFrneowvu— 


RRR MMR KKK REE EKEKKRA RAE 
* * 
* G3/GS AND GU/Gb6 TABLES « 
¢ * 
RRR EARNER 


INTITTALIZE LOCAL VARTABLFS 


irra o irc cs 


7000 ON 7020 121710 
09 7Olo0 Jeieill 

TULO XCF, 7 Vs6,6 

7020 TIMF(T)=ENL 
SKIP=SKTP2=0,0 
X(111-13SC0406XC(S) 
X¥°O414,2e.8C04007xK(8) 


on FOR UP T3 TEN DATA SETS 


oan 


07 7950 1e1610 


aoaaIn 


7024 


7022 
7025 
7024 


anan 


7030 


7040 


anananqn 


7110 


PUT IN "VOATA" THE INTEGRATED VALUES (VA) TR THE RATES 
MF CHANGE (DVA) OF THE VARTABLES THEREIN, DEPENDING OA 
WHETHER MSWT3" TS PISITIVE IR NEGATIVE RESPECTIVELY, 


IF(SwTR,GT,9) GO TI 7H22 
O97 702) TkJe1,NCV 
VOATACTKJ)SOVACTIKJ) 

G9 TT) 7024 

DD 7023 JkKys1,NCV 
VOATACYKJVEVACIKS) 
CONTINUE 

TIME (T)STT 


TF ANY NUCLEAR ARTILLERY TUBES EXIST, COMPUTE THE 
DESTRED DISPLAY VARTABLES ASSOCIATED WITH NUCLEAR ARTY, 


IF(CO4N6x(S),LE.0.0) GO TD 7110 

99 7030 Je193 

K(leJ,rISVOUOIP(S,S$) 
X(ob+J,TIECHUOEOX(SI*RANSOIP(S,S) 

XCLP+T, TIVECOUNEX(S)*ROGOIP(S,S) 
X(S,T)SCOUn6x(S)eVONGIR,S) 

XIN, TYSCMUNHX(S)#hOS3P(S) 

KCL}, TISCONNEX(S)*ROSTUPCS) 
XCL,TIEXCP,TI+X (3,1 IHX (UT) +X(05,7) 
XCO,TIEX(7, LI+X (Be TI +X(9,7T)4+X010,7) 
KOLA,TISXCL3,TI+XCV Se T+ KX (15,7) 
SKTPSAMAXY (SKIP, VINGS Fel ,SI,VOINGSF 42,5) -VONGSF 43,5), V0NGSR,S)) 
D9 7040 Je1o3 

K(164I,T)SVEnGSFeJ,S) 
Xf2Y4),7ISENSSIP(T,S)4+40551P (5,8) 

X(2R4 1,7) =20603P (5,8) 

KE(JaL)edet 

X( 334K, 1) SE9551P(JrS) 

K(SUeK, TIERIGOLIP(J,8) 
X(354K,7TISRNUOSP(I,S) 
X(U345,7)240551P (5,9) 
X(URET,T)=EHN0603P (5,8) 
X(SPe#I,TIZEROGNSP (S058) 

X(20,T)=eV(NG5SR,S) 
XOYH,TISXCL7,TIOXCILS eT I4X019,7)9+xX(29,7) 
¥(25,T)SAN561P(S)+A0563P(S) 
XC2L,TISXC22, 7) +xC 23, Tex (24,1) 4 (25,1) 
Xf26,TECOH11X(S) 

X(27,T)=R0576P(S) 

XCAR, TIEKCO9,TI+XC30e1)+x031,7) 
xf32,T)=V0551xX08) 
XC3B,TIEXCBU,TIFKC37/T)eXCUN,7) 
XCU7,7)2AN561P(S) 

¥(UR,TJ=ZAN563P(S) 
KCURTISKCUG,TIFXCUSe TeX CUS, TYHXCU7,1T)+XC4B,T) 
¥(52,TI=SR069UK(S) 


TF ANY FRONTAL SS4 LAUNCHERS EXIST, COMPUTE THE 
NESYTRED DISPLAY VAPTABLES ASSOCIATED KITH THE Ssgm"s, 


TFCCO4O7K(S).LE.0.90) GO TT F7i4un 


256 


aAaraanann 


Onranrann 


7120 


7130 


T7140 


7150 


7155 


DY Fired fetes 

X(She1, 7) svOu02P (3,8) 
XCoses,TISC9G97X(S) eA0501P (5,8) 
X(OTHeS,TISCOGOTX(S) mROONLP(S,S) 
xFOO,TISCNUOTX(S)*V(NGIR,S) 
XCOS+TISCOUNTX(S)#ANSSLECS) 
Xf6G,TISCOUNTK(S)*ROSTUP(S) 
XOSH,TISX(ST,TI*KC5Bel) eXC5 9,7 eK( 60,71) 
X(O1,TIEXCHAP,TIOX COS, I) +X 0 64,7)4xK (65,7) 
X(O7T,TISX(KHA,TIxCO9,Tex(70,T) 
SKYP2EAMAXICSKIPA,V(NGOF 41 ,S),VOINGHF 42,8), VONGEF 43,8), VONGGP,S)) 
09 7130 Jair 

X(7$¢JS,TISVONGOF OJ, 38) 
X(7T6tS,TISENSS2P(S,8) +AN5S52P(5,8) 
X(BBeT,TISRAHGOUP (IAS) 

Ke Je a2 

X(BR4EK,TISFOSS2P(5,8) 
X(B9O4K,TIZSROU02P(J,S) 
X(9NeK,TISROUOUP(I,S) 
X(9OR+I,7)240552P (5-8) 
X(1934S,T)=906040P(J,5S) 
X(1N7# 1, TI=ERO604P(J,S) 
X(75,T)2VCNG6R,S) 
XO7TY,TISXCTA, TV OeXC7T3,T 4X0 74,7) ex075,7) 
YCABN,TYSANS6PP(S)+AN5SH4UP(S) 
X(TOATIEXCT7T,LTIFX( 78 TI OXC79,T94x080,7) 
KCAL, T)SCOHLUK(S) 

X(B2,1)=ER0577P(S) 
K(B3,T)=EX(8U,T)+xX(85,1) 4X (R607) 
X(87,THVOS52K(S) 
X(AR,TIEX(AD,T)#X(092-1)+X(95,7) 
X(102,7)2A0562P(S) 

¥(193,7T)2ANS64P(S) 
K(GRATIEXCOI,TIHXCLOOrTISXCLOL,TIFKCL02,1)4X(103,1) 
X(1O7,72)=R0605X(S) 


REAN FRIM TAPES A NEW DATA SET CORRESPONDING TD THE NEXT 
TIME PIINT, WHICH IS INSTCATED BY THE CURRENT "CARD TYPE" 
PARAMETER, (NOTES NEW VALUES IN "VA" AND "HVA") 


TFCTT,GE.TEND) GO 19 7355 

D9 7150 FKSET,INTY 
TFCTYGE.TENS) GS 15 7155 
REAN(3) TT, CYCOEPCS I + JE1,NIVAR) 


TF FRONTAL SSM LAUNCHERS OR NUCLEAR ARTY TUBFS EXIST, 
PRINT THE VALUES SF SELECTED QUANTITIES RELATED TO THE 
FYTSTING WE4PONS SYSTEM (SS4 AND/OR NUC), FOR UP TO TEN 
TIME POINTS, 


XC1/1,3)=SKTP 

X(111,0)2SKTP2 

99 7186 Isive 

K{sPe] 

KPxdeT 

PPCECT Ete Tietlhe.0y GS TS FHSS 
K1s2¢7 


257 


ee Oe oe oe | 


7160 
7170 
7180 


7910 


FACAMwW = O MPH PF NeW V 


KSa(Te1) «5544 

KUsw seq 

WRITE CH2 7910) KI K2¢STDECS) sCTIMEC II, JEL, LO KL, COX CS eK), KE1,10), 
J=K3,KM) 

TPEVECP EL 24) Deke eed: CO. TO h7G 

KysKUs] 

KUSK34+16 : 

WRITE (627920) KP, C(XC I,K), KE1,10),52K3,K4) 

K3oKUe]y 

KMEK 4a 15 

WRITE (6, 7930) ((XCS/KI,K 21,101, J=zK3,K4) 

K3sKQ4 4 

KUESSe] 

WRITE (He 79U0) COXC JK) -KE1,90),SEK3,KU) 

69 TO 7489 


PPINT A MSG INDICATING LACK OF DATA FOR ONF OR mORE 
WEAPONS SYSTEMS, 


WRITE (65,7959) STDE(S)-K1 
WRITE (647950) STIE(S).K2 
CONTINUE 
69 TO 2000 
FORMATOCLHI//21X¢BHSYSTEMEG,T1,6H AND Goll eSXeALO////SH TIME, 26X, 
{NCEA LL, AXIS pL BCL ON aka) / 
BH TOTAL Geoll,i4tee21X%,10F10,3/ 
OW AT Fit,22x,10F10,3/ 
9H AT Fot,22x,10F10,3/ 
9H AT F32,22X,10F10,3/ 
Ay IN Re,23x,lOF10,3// 
1UH TOTAL LISSES#+17%,10F10,37 
aH AT F4t,22X%,10F190,3/ 
SiH AT Fot,22X,10F10,3/ 
oH AT F3t,e2X,19F10,3/ 
AH TM Reyedx,LOFL10,3// 
104 RFSUPPLYL,2LKeLOCF7, Oe 3xKd// 
224 MOVEMENT FRIM R TQ) Fe,9xX,10F10,35/ 
{7¥,6HTQ Fite AX, 1O0F10,3/ 
1{7¥,6HTD FAG, 8Xep 1 0F IN, 3/ 
17X,6HTD FSR BXe 1 OF LO, 3/1 pL BCL OH ake aaKeKee) ) 


TIPO FIURMAT(1H ,13C1OdeeewmwaeeeI/SAH TOTAL Geis lht,2iXe{0F10,3/ 


FMNoCAnAnV- Ft OPHIrnNeuvnnw= 


9H AT Fit,22xX,1O0F10,3/ 

9H AT F2t,22X%,10F10,3/ 

9H AT F3t,2eX,10F10,3/ 

Br IN Rgy23x,10F10/3// 

19H TOTAL LOST / USED, 12X%,19F10,3/ 

on AT F4t,22X,10F10,3/7 

9H AY Fot,22x,10F10,3/ 

GH AT F3E,22%,10F10,3/ 

Rw IN Re,esxr,1OF10,3// 

PUY PORTION T93 3E REPLACFOS,7K,19F10,3// 
10H PESUPPLYS ,2LXe LOCK 7 On 3KIS/ 

23m TOTAL MIVEMENT R TA FE,RK,10F 40, 3/ 
{BXGHTM Fit, 7X, 10F10,3/ 

{BX ,6HTD E2te IX IOF IN, S/ 

{BX ,GHTD FRarIXeLOFIN, 3// 

BiH MAY NUMBER TN TRANSIT IN Ro oS OCF 7 E00 3K)/ 


258 


Yi {4 , 130, One eee eee eR) ) 
7930 FIRMATCY2H TITAL ISEDS,19X%,10F 19, 3/ 
aH AT Fee, etexXe,1 OF 10,37 
SXe1PHAGATNST Ghr,lSx,10F10,3~/ 
SX,11HAGAINST G2te15X,10F10,3/ 
OH AT Foe,e22xe1OFin, 3/ 
SX,fLHAGAINST Glo, i5¥,10F10,3/ 
SX,11HAGAINST Gla, 15X,10F10,3/ 
9A AY F3t,22Xe10F10,3/ 
SX,LIHAGAINST Gls, 1SxX,10F19, S/ 
SXe1PHAGAINST Glt-SX,10F 10, 3// 
{4H TATAL LOSSES#+17X,10F10,3/ 
234 DUF TI LOSS OF G2F92,8xX,10F10,3/ 
1AX,SHG2F 28, AK, LOF LO, 3/ 
$8X,SHGOF3S,8x,10F10,3/ 
{R®X, GREP, 9X, 1 0F10, 3/ 
SAX, 2HSer LIX er LOPLO,S/LH ,LE(1 OH akaeee eek) ) 
7900 FURMAT({UGH DEMAND 4T Fle,37K,10F10,3/ 
(1X, SHE Zt, TTX ,LOL LO, 37 
(9¥, BRE TOL LPM LOP IO, S47 
SiH MA¥ MOVEMENT FROM R FO Fe pSOF40,3// 
2UH MOVEMENT FROM R 19 F12,7X,10F10,3/ 
PLX, BHF ALE, TX of OFL0,3/ 
OLX, SHE SE, THe SOF LO e S414 p13 1 OH aeakaeeeee) ) 
TI50 FVRMAT CNMI SS/S/21 Xe (SH eaten) / 
1 OLX, LHe, OSX, LHe/PYX, LHe, AI0, 11H SHOWS NO Geli sy 1X, LHe 
rd ALK, LHe, OBR, LHaKSALKX,S (SH awean)///) 


&ewvAw~—-~ fF OBWVNATF NHAeSwnN—- 


A 


rFNEeEWN = 


REKAKR EKER ERK 
* * 
* R FACTOR TABLE & 
* * 
REKAKKAE KKK ERERKH ED 


INTTIALIZE LOCAL VARTABLES 


OOOO OOMNYANDNO 


8000 DD RN20 T1418 
DT 801 Jet,26 
R020 TIMF(TI=0,9 


C 
C no FOR UP TD) TEN DATA SETS 
- 
oy BOS0 Tetr10 
3 
e PUT TN "VDATA™ THE RATES OF CHANGE (CDVA) OF THE 
C VARTARLES THEREIN, 
C 


D7 RO3N TK F1,NCV 
RO3S0 VOATAITKIVENVACTKI) 


LOMPUTE THE DESIRED NISPLAY VARIABLES FROM THE 
APPROPRIATE DATA, 


Ooo 


TIMECL STF 
X¥(S,TISANUHIP(N,S) 
X(3,J)2A04N2P(N,S) 


I i te 


mano 


anan 


R050 


8060 


B910 


B9?P0 


X(G,1)SA0UN3P(N,S) 

XCS,1LSAns2e1e(itsv,S) 

X¥(Co,T)SAN321P(2,N,S) 

X(7,1) 5403230 03,N,S) 

X(B,TISANBNIP(CLyNeS) 

X(9,TSAOSOIPC2ANDS) 

X(C1O,T)YSVONG{F EN, 30S) . 

MOL TISXC2,T)eXCSeTIOKCU,TIFKX(SeT eX COe TI eXC ToT IeX( eT) +X (947) 
XCM, TSKCt eT eX(10,1) 

XC1L3,TISANYOLP(N, 38S) 

X(14,T)Sa0U02P(N, 30S) 

X(15,1T)SA0403P(N, 3°38) 

X(16,T)=SANSA1P(1,Ne 3S) 

KCV7,T)=ZAN32{P(2,N, 388) 

XfYR,TISANZ2AIP(3,Ne3eS) 

X(99,T)SA0301F(1,N, 398) 

X(2N,T)=SANZNIP(2,N,3°S) 

X21, T)EV(INGIFON,S) : 
XCLAeTISXCAS,TIFKCLY eT eXCLS pT I+XCIG,TIOXCI7 AT IeXC 1B, TIeX(19,1)¢ 
{ X(20,T) ’ 
XC22,T =SxX(12,T)*xl2ierl) 

KOS3 eT yextee,; Ey-xCliyaT) 

RCA, TY=HXCi1,LI+xX C2277) 

IFCX(PUeTI GT LeESSN) X25, TIEKC23,71)/X (24007) 
X(2h,TISCAOAOIP(N,S) 


REAN FROM TAPES A NEw DATA SET CORRESPONDING TO THE NEXT 
TIME POINT,» WHICH TS IMNSICATED BY THE CURRENT "CARD TYPE" 
PARAMETER, (NOTES NEW VALUES IN "VA" AND Avaty 


IF(TT.GE.TEND) GO TO 8060 

D9 BOSON TK JSteINTV 

IFCTT.GFE. TEND) GO T1 8060 
REAN(3) TT, CXCDEF (CJ) eJ£1,NOVAR) 


GENERATE THE RELEVANT PRINTIUT TABLES FOR UP TO TEN 
TIME POINTS, 


WRITE (6¢B8919) No STDECS),CTIME CK) KE1,10),CCXCI oJ) pJEd,190).12in il) 
WRITE (6,A920) (CXCI,J),J51,10), 1212026) 
69 TO 2000 
FORMAT CYHI/S/21XK-,17HR FACTIR AT FRONT, IL +SXeALO/S///54 TIME, 26X, 
1OCFR 1, PXISLH PL SCL One keeececend / 
154 TOTAL G1 L7SS8,16xK-10F10,3/ 
164 LOSS DUE TO G1t,15X%,30F10,37 
13X¥,3HG3t,15X,10F10,%/ 
{3X%,3HGU2,15X,10F10,3/ 
13X,3KA13,15X,10F10,3/ 
13¥,3Hb28,35X,10F10,3/ 
13¥,3HASt,15X,1/0F 10,387 
13X,3HL12,15X%,10F 19,37 
LX, BHL2E,ISX,10F10,3//7 | 
$1H TOTAL #Gig,e2OX,1MFI0,3// 
ABH TOTAL LOSS * TOTAL G19, 7X,10F10,3//7/) 
FORMAT(Y6H TOTAL #64 LOSS!#,15X,10F10,3/ 
{ 164 LOSS SUE TN 618,15¥,10F10,37 
? 13%,3HKG3%,15X%,10F10,3/ 


Verne OBH FN CWwWV = 


260 


13¥,3nGUt,15X,10F10,3/ 

{5M SHALE LSx, LOR TO, $7 

(5X, 3HA2t, 15%, 20F 10,37 

C3¥, 34450, 15%, 20F 10.37 

(3%, SHLUt, PSN, LOR TO. 3/ 

{5X , SHL St ios Ler LO ass 

104 TOTAL Git,2lXelOF10,3// 

GH TOTAL +LOSS * TOTAL Gie,7X,10F10,3/// 
POH PROBUCT DIFFERENCES, $1X%,10F10,3/ 

134 PRODUCT SUM$,18XK,10F10,3/ 

184 DIFFERENCE / SUME,13K,10F10,3/7 

104 R FACTOR, 2UKpLOFIO, SSL XLS (LON k aaa kee) ) 


Cwver tt OWANTF KReOwW 


PROGRAM ARTDUTCINPUT, DUTPIIT, TAPESSINPUT, TAPE GSQUTPUT, TAPES) 


THIS PRIGRAM TABULATFS TNE RESULTS OF A "COMBAT TI" 
RUN oe "ARTILLERY" VERSION, 


aolIiq 


COMMON /XEMEF/ COOLOX(29,C0020xK02),00030K(2) -CON0GOK (2), 
CONSHX(2s2),CO0F0X(5,2),COOTOxX(Sp2),C0211X03,2),00212x(3,2),4 
CO2L3K (Be 2 COSLGX(C3, 2), C0215 X05 ,202),C0CLOX(3, 5,2), 
CO217X(632502),CO231K (2,2) -CO282K (2,2) ,C02353K(2,2),00234x (2,2), 
CO2BSK (24272) pCOABHK 26542) ,CO237K (2,552) eCO242K(5,2), 
CO2USX(S5,2),CO2U4K(5,5,2),C0251xK(2),CO252xX%(2),C0253x 02), 
COA5SGK(2),C0255X(2-2),00256xX(5,2) ,C0257TX(5,2),C0261xK(2), 
CO262x%(2),C02635X(2),C0264X(2),09265X (242) 400266K(5,2), 

COLTS er 2) sCOS07XC2,2r2) eCOSL xX C2I,COS12X (2,2) ,CO513X( 202), 
9C0521xK(2),C9522x(2) ,C0523X(5,2)600601X,C0603K(3,2) ,C0b04xK(21,C0605 
#X(2),60606X(2),CO607X(2),CO6INXK(5,2),COE11X(5,2),COb12xK(S,2), 

§ FOSTIX(C2),E05S12X(2),FOSI3X(2,2),E05S4X(2e2),F0521X(2), 

a FONOIK( 3,2) eFOL01X(3,2),F0102xK(2),FO103X(2),F0104X(3,2), 

z FOVNSXC3e2oFOLOOX( Se 2)-FOLOIX( 3,202) ,FOLOBX C3, 2,2),F0109K (2), 

u FULOXCS 2rveF OL LIXC3S,S,2).FO20IXCS, 35223 -F0202X(3, 3,232 

5 FO2O3X 3015 e2) oF OS0IK (2p 2d-FNS02X(2¢3,2)6 

6 

7 

R 


mpwywFNCwVY ~- 


FOSOSK (C2 See rFOSOUK (2,21, FOSCSK (Are) ,FOS06XK( 2,242), 
FOROTK (Ar 2 sFOSORX(C2,2r2d pF OSO9X(Se2r2rdeFOSINX(2,15,2), 
FOSLLX (255,20) oF O31 2X( 2,352) FOUO2XK(S,2) pFOSOSX(5,2),FA9U0UX(S,5,2) 


oO 


COMMON /XCOEFI/S FO0601X(3,2),P0001K(3,3,2),P0002K(3,3,2), 
POONSX(3r3r2) pPOO0UX( 3, Sr2),POIOIK( 3-202) 1P0102XK(3,2,2), 
POLABXC Zr 2aIePOLOUXCE,2dpPOLOSX(3,2) ep POLOTX(3, 2) pPOLORK( Pr Sred, 
POYN9X (24342) ,P0110X(5,3,2) sPOS0SX(2,23, 
POSOASXC2Ar Ade POSOSK (2,21 ,FO30U4K( 2,2, POSOSK(2,2e2),PO30HK(2e2), 
POSOTX (26202) eP0308K (25572) pPOS09K(2r5 02) POR23K (352,23, 
POVPUX(Zree2 ,POSA5K(Sr2r2),POS26X (See, 4) pPOSA2IX(S,2,4), 
POZPRX(HeS eb pPOZ2IX( Sr S,4V,POUNIX (2) pPO4OAK(S+2),POU03K(5,2), 
POUNEX (Sr SeAr-ROOOIXC Ere ,RO3S01X(2,2),R0K02K(5,2), 

POSTIX( Br PIAROSTAX(C2]I,ROS7TBK(2),RO5S74X(2),ROS7TSX (2), 
ROSTOX(SePIAROSTTX(S 2) pROSTAK( Ppl) AROSTIX(2,2),R0601X, 
ROBDEXC2),ROG03K(2) ,ROGDUX (5,2) ,ROG05SK(S 2) ,R9T00X( 2,2), 
VO5SULX(C2r2-VOSUSX(2,23,VOS5SIX(Se2) eVOG0LX(3,2),V0b02K(Se3e2), 
VO7TANX(2),V0C65e2) 


eV ns OPN TNMOCw Y= 


COMMON /PV/ V665,2),AV (300237 VA(1759) -C9001P(3,3,2),C0002F(3,3,23 
CONNSP(]r2),COO0UP( 3,2) ,CO60IP (362) /D060IP 63,2) ,0060PP (312), 
NOCOSP (5 e322) ,D0G0UP (5, 3,2Y,FOINIP (Ss 3-2) ¢F0104P(3,3,2), 
FOLOSP( Zp Sel pF OS OSP (3,2) ,FOLOTHE(3,2I,FOL0BP(3,23,FO1098(3,2r2) 
PFOLLOO (3S, 2,2 eFOLL2P (3,15 ,2V,F OVI SP C3, 5e2) ,FO30IP(2,3,2), 
FOSN2APCArse2sFOBVU3P (Acer ,FOSOUP (Are) ,FUSOSP(2,2,2),F 0 3NbP (2,2) 
PFAZOTP 2,2 oe) PFOS0BE (72,15, 2d,FO0399P (2,572) ,PO10IP(3,3,2), 
POINPP(3r3r2),P0103P (3, 3,0) ,POINUP (3,342) ,PO105P (3,2), 
POLOKPC3Zr 2 sPOLORP(S,21,PO0LL OP (3,202) ,-P0111P(3,15,2), 

POTLPP (LS, dpe) ePOI13P(3,5¢2),PNS0{P (2,372) ,PN302P(2,3,2), 
PABNZP(ArPIsPOBZOUPL2s.2s,POSO5SP (2-202) pPOS0OP(2,15,2), 

POINTE (26522) pPOU02P (54542) ,P0K403P (543-2) ,P0U0UP(5,15,2), 
VOZOHIP CAPA EVOSUIP CA, 2 ,VOSUAP (2,2) VOS4USP (2,2) ,VOSUEP (Sr dee), 
VOSUTECSe2 PVOSUBP (Ss Se2),VOSUSP (5,2), VOS5SNP PS, 2d, VOG0IP( 3-2), 
VO5S0PP(54342)4V0603P(5+3,2) 


> 


Swawv-r sn. ORUnNFrMowWN = 


, 


COMMON /PHV/ DV(6572)-D4AY635,2),0VA01 7600) 
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ia) 


oO 


ia op i gy We 


CEC’ CV CV 


oonoan 


1090 


CIMMON sSVNATAS ADON01P(3,2),A0002P (43-2), : 
AD101E63e5e22,40102P(3,5,2), A401 03P (3,2) ,A0104P(3,2},401058(3,27) 
140106°(2,372)eA0107P(2,3,2) ,ANLOBP(154542),A0109P(5,3,2), 
AOSDIP 624362), ADS02P(2r342) e ANZ03P (22) eh0304P (2,2), 

AOZOSP (26242), A030GP (2,21, A0S0TPC2r 542) FA0S0RP(2,3,2), 
A0309P 6261572) 4403108(2,5,2),A0321P (3,372) ADS22P(3,342)% 
A0323P (3-2) ,A0324P (3,2) ,A0S25P 6542) pADS2EP (3, 2,2), b40827F (3,372) 
eA4N32R8P(3,35,2),40529P(3,15,2),40330P63,5¢2),40401P (3,2), 
ADUN2P (54302) ,-ADUOSP CS e 5,2) ,40U0UP (561552) eA05N1P (3,7), 
AOSO2P (Se 3e2),A0S0SP(5r2),40511P 6342), A0S12P(3,2),A0S13P (3,2), 
AOS{UP(S¢,2,A05S15PC2),A40516P (2), A0521P(3542),4052PP (3,2), 
A0523P(553,2),A0531P(2),40532P(2),A0S33P(2),A055UP (5,2), 
ANSUOP(2),405U1P (262) ,A05U2P (2,2) ,A05U3P (242), A05U4P (2,2), 
ANSSIP (Se 3,2) ,A05SG1P (5,23, 4087TIP (Se 5,237 h40572P (5,25, 405739(5,2) 
0£EOS192(2),E0512P(2),E0571P(3,2),E9551P(555,2),R0001P (3,2), 
RONA2PCBr2A+ROOOSP(3e 2 ,ROOHYP (Sr, 2+RNO0SP(2),ROS0IP (2S, sr2)6 
6 RN3N2P(P,3,7)4R93503P (2,2), R030UP (2,2) ,ROS0SP(2,2,7),RO3N6P (2,2), 
ROVOTE( Zr 2r2d,-RO3Z08P(2,55,2),R0309P(2,5,2),R 0325 °(3,3,2) 


awn 


AM ~* OPN TFNE 


ns 


_ 


COMMiIN /BDP VIS RO322P(3,3,2),R0323P (3,2) ¢R0324P(3,2),R9325P(3,2), 

{ ROZS2POP (Sp Pee ,ROSATP(3,2,23,ROB2BP (Sr 5,2 Pe RAS2A9P(S,5,25, 
PRAUN2P(5,3,2),R0U05P(5,3,2) ,ROUOUP(5,15,2)¢RO5UYP(2,2),R0571F (3,2) 
RB pROST2P(2),ROS73P(2),R057UP(2),R0575P(2),ROS7THP(5,2),PR0577°9(5,2) 
4 pROSTRP(2,2) 07 RO579P (2,27), RNGO0IP(3,2) -R0602P(3,2),R9603F (5,322), 
5 RNS0UP (54302) 


TNTTIALIZE "ARTQUT" VARTABLES 


INTEGER S§ 

DIMENSTON XCOFF (CY), VDATAC1) 

EQUTVALENCE (VDATACI)-,A90N1P(1,1)) 

DIMENSTON DSCRPT(100/8),77YS(3) 

NIMENSION TIME(10O)¢SIDECC),TITLE0(6),S4T2C2), 

¢ C164, 90) 

EQUIVALENCE (XCOEF(I)-COO10¥(1)) 

DATA SYNE/{OH BLUE DATA,IOH RED DATA/Ss+ASTRK/SHae/,BLNK/LH /y 

4 NOV/LTHOS,NIVAR/5B6B/ 

DATA TITS/{OHRUN DESCRI,LOHPTION, 110k / 

DATA NGIF SOS NGIRSUS NW/U/S NWR/LG/ NLS24/NGOFS26/NGAR/30/pNR/SO/ 
{ DNRRSUSS PO NM/SSOSONS/53/ + NB/SB/pNSB/SSSyNAISST/NAUS OS Sp MAS/E62/, 
2 NXF/H2P/,SWTR/I/ 

REWIND 3% 

ly 


CHECK IF TAPE3 JS FROM THE FARTILLERY" MNDEL, GIVE ERROR 
MESSAGE AND STOP EXECUTION JF THE PROGR&mM IF IT IS NOT, 


RESACS) AMODEL 
TF CAMIDEL NE. PAARTILLERY) GATN 9980 


REAN FRIM TAPES THE TITLE, DATE, DESCRIPTION AND TIME 
PANGE TF THE "COMZAT IIT" RIN, CURRENTLY IN PROCESS, 


=Ie! 
PEAN(3) (NSCRPTCI,*35Ke1,4) 
IFCNSCEPT(7e1),NE,3S4END) GI TD 1000 
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aan 


1910 


1020 


1030 


2.3 (3 £23 C2 C3 CF C2 ed 


e000 


2005 


2006 


2009 
2010 
2020 


2oei 


ononrnrn 


aAaaIn 


{ 


REAN(3) TYTLEQ,/DATEOr+ TING DELT,FRRIR,NTINER,DIOLTR, TSTART, TEND, 
ALPHA 


PRINT THF TITLE, DATE ANN DESCRIPTION OF THE RiIN, 


WRITE (56,2950) TITLED + DATED 

I=s0 

NTIMESSO 

WRITE (622952) (TITS(K),KE1,3) 
NTIMESENTYMES#] 

T=] +} p 
IF(NSCRPT (151) ¢E0,3HEND) G2 TO 1030 
WRITE (622953) COSCRPTCI,K),K=1,8) 
TFONTIMES, GE.es) GQ TO woe 

69 TO 4020 

TASC = f 2 


READ A CONTROL CARD AND FROM™ TAPF3 READ THE DATA SFT 
SELECTED BY THAT CARD, IF THE CONTROL CARD YS A "CHANGER 
CARN, SET THE SwWITCN "SwT8" TO THE VALUE IN THE SECOND 
FIELDS OF YHE CARD CTTMES), MAKE SURE THAT THE STARTING 
TIME AN THE CONTRIL CARD YS WITHIN THE TYME RANGE OF THE 
"enuBaT IIT" OATA ON TAPES, GIVE AN ERROR wSG IF YT IS NOT 
AND PROCEED TO THE NEXT CONTROL CARD, 


REANC3) TT, CKXCIEFCII eo TEL»NIVAR) »SHT2(1) sSwT2(2) 
REAN(5S,2990) Ar TIMEV+ TYPELN,S 

TFCFOF(S)) 9990,2005 

IF CALNE, OHCHANGE) GO TO 2906 

SWTRSTIME 4 

G9 TO 2000 

IFCCTIVEL LT, TSTART), OR, (TIMES,.GT,TEND)) GO TO 2800 
TPC'T Lee TIMES) GO TO 2020 

REWIND 3 

09 2099 r=1,198C 

REAN(3) Dummy 

REAN(Z) TT, CKXCIEFCI VY TS1,NOVAR),SWT2(1),SWT2(2) 
steamer Macrae belated) (ela AISI yas ifs, 

D7 202) Ie1,10 


TIME CT3S0.0 


ORTAIN THE VALUE DF *"INTV"®™ TO DETERMINE HOW MANY DATA 
SETS MUST BE SKIPPED OVER AN TAPES BEFORE THE NEXT 
Nava SEY 78 READ, 


SwTAcO,0 

JFCA,NE,SHTYPE1) SwTAt4,0 

IFCSWTA,EN,1,0) SECIDE(7,2951,4) DUM,INTYV 
INTVSTAT Ve] 


RRANCH TD THAT PROGRAM SFETION WHICH IS INDICATED RY 
THF CONTROL PARAMETERS OTYPER AND FANN, 


IFCTYDE FO 1HA) GO TO 2030 
TFC TYPE ER, 1HM) GO TO 3N04 
IF(TYPE,EQ,1HB) GO TO non 
IFCTYPE,EQ,1HR) GO TO 8000 
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2022 


99R0 
9990 
2950 
2954 
2952 
2953 
2960 
2970 
2990 


Ooo o@wmMonom 


2030 


2035 


aan 


onraranrnn 


2033 


2032 
2033 
2034 


oOraInoan 


TEC TYPE EN. 1HW) GN TO 7000 

IFCTYPENE .1HG) GO TO 222 

IF(N,F9.1) GO TO 5000 

IF(N.E£0.2) 69 TO 6000 

WRITE(6,2960) TYPE,N 

69 TO 2n0n 

KRITE(6,2970) AMODEL 

stop 

FURMAT(NHI//5X,#RUN NAME G&,6A10/6X%,% DATEDi wx, A110) 
FURMAT(AU,73) 

FIRMATECLTHIS/1{ OX, 3A10//) 

FORMAT(LX/21X%,BAN) 

FIRMAT(/S/6¥ ee, , UNKNOWN SYSTEM CONDE a, ete SXe1H=pAl eli, tHe) 
FIURMAT(////% TNCQORRECT DATA ON TAPES: &,3X, Ad) 
FIRMATCAIN,F5,0,Alrell) 


cee eee etree se 


« * 
* A TABLES * 
* ry 


KekKkaekekeeak 


INTTIALIZE LOCAL VARJARLES 


SKTP=EN.O 
O09 2035 Jet,10 
NM 2035 J=1.B86 
X(J,1)50,9 


Oo FOR UP Ta TEN DATA SETS 
DY 2050 Ts1,.10 


PUT IN "VDATA" THE INTFGRATED VALUES (VA) OR THE RATES 
OF CHANGE (3VA) DF THE VARTABLES THEREIN, DEPENDING ON 
WHF THER "SWTAM 76 POSITIVE JR NEGATIVE RESPECTIVELY, 


TFCSKTA. GT. 90) GA T3 2032 
DN 2034 YKISY,NCV 
VOATACTIKSJ)SDVAC(IKS) 

69 TO 2434 

09 A033 Ye yst,NCv 
VPATACTK SJ) eVACIKS) 
CONTINUE 


COMPUTE THE SESTREN OYSOLAY VARTARLES FROM THE 
APPRAPRIATE DATA, 


TIME (TIETT 
X(1,T eV (naJeneS) 
XC(2,T)2A05{UPC(N,S) 
X(3,T)SFO571P0°N,S) 
X(G,TVE9NNNITO(N,S) 
X(S,T)=RO5N2PIN,S) 
X(B,T)SAONHIPINGS) 
X(7T,TSRPO9NSP(N,S) 
¥(B,T)sANHN2PC(N,S) 
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20%6 


2037 


2040 


SKYP= SKTDex(7,]) 
X(9,T)SRON0UP(N,S) 

O90 2036 Jste3 

Kz(Jet)ae 

XCL24K, T)SROZALP(N, JS) 
X(134K,1)S00322P(N,J,S) 

X( LOO", TISROZASP(N, J,3) 

X(15 4K, 7) sO%3Z28P(N, 34J,8) 
X(1HeK,TISROZ2BP(N, 645,58) 

X(CY TOK, TISROZ2HP IN, 9eJ,S8) 
X(194K,TISROBASP(N, 1 24),8) 

XOVS eK, TISNNGY 2K, TIOX( LIK, Tox (YP deK, TIX LS+K, TEX ( bok, I) 4 

{ KCU7THeK, TIX (1 R446,1) 

KOLO, TISKCLY, Texel 9,T)ex(27,7) 
X(3S6,TISRNZARP(N,S) 
X(37,T)SRO32UP(N,S) 
K(3A,7}SRN329P(N, 1,8) 
X(30,T)SRAZ2Q°(N,2,S8) 
K(UN,TJSRAZAQP(N, 3,8) 
X(UT,TISRNZA9P(N, 4,58) 
X(UP,TISERNZ2OP(N,5,8) 
X(UB,TIERNZABP(N, 1,58) 
X(44,T)EROZ2HP(N,2,8) 
X(US,TISRAVASP(N,S) 
X(GK,TIEROZOTPPCN, 1,8) 
X(47,TISROBA7P(N, 2,8) 
XOBS,TISX(ZO,TIFEXC 3ST ALIEXO BA, TI EX (39, THK CUO,] oXCUS TeX (ue,7f) 

‘ #XCUS,TIFXCUU,T)eX(US,T)¢xX(U6,TI¢K(47,T) 
Xf(UR,TYSANSIAP(N,S) 

DN 2037 Jsis3 

Ke(Jelje7 

X(U9eK, TIBZANLNIP( JeNeS) 
X(504K,1T)SaA0102P(JeNeS) 
X(514*#K,TISAOLOBP(IeNeS) 

K(S2+K, TISANINBP(3¢5,N,S) 
XP5B+K,TISANLOBP(64I,N,S) 

X( 544K, T)SANLOSP(9+I~N,S) 
K(554K,7)2A0108P(12¢5,N,5S) 
x(79,T)SA0403P(N,S) 
XC71,TYSANINUP(N,S) 
XO72,7)SA0{09P(1,NeS) 
X(73,TISA0{09P(2,N,S) 
X(7U,7)2401909P(3,N,S8) 
X(75,7)SANjO0OP(4,N,S) 
X(76,7)=AN1N9P(5,N,S) 
X(77,7)8A0106P(1,N,8) 
X(7R,TISANINGP(2,N,S) 
K(79,7)SAN{O5P(N,S) 
XCOO,TISANIOTPECI,N,S) 
X(B{,T)=A01N7P(2,N,8) 
K¥(BA,T)SANSIZP(N,S) 
KX(BB,TIYSANZLTIP (CL Ne SIFANS2A7TP(2,N,S)HA0SCTP(39N,S8) 
X(BU,TIZSANZOTP(1,NeS)4AN3N7P(2,N,8) 
Y(BS,TISANZCBP(1,NpS)FANS2BP(2,N,S)+A03S2BP(3,N,S) 
X(B6,TYZEANZOBP(1,N,S)#AN3S0BP(2,N,S) 


REAP FRIM TAPES A NEW DATA SET CORRESPONDING TO THE NEXT 


266 


aan 


anonanTM 


2045 
2050 


TIME POINT» WHICH ITS INDICATED BY THE CURRENT "CARD 
PARAMETER, (NITES NEW VALUES IN ®VA™ AND "DVaA") 


TFCTT.GE.TENDS? GO TS 2060 

IF(SeTa NF.1,0) GO TO 206050 

D9 PO4S IK JEL, INTV 

IFCTT,GE.TEND) GO TI 2060 

READ(3) TT, CXCOEF(C JI ep Jel eNIVAR),SkKT2(1),SWT2(2) 
READNC3) TT, CXCOFF (JI eJEL,NOVAR),SWT2(1),SwT2(2) 


GENFRATE THE RELEVANT PRINTQJUT TABLES FOR UP TAQ TEN 
TIME POINTS, 


2060 WPITE (56,2910) TYPEsNeSIDECSI,CTIMECKI),-Ki=3,10), 


2065 


2066 
2070 
2800 


2900 


2910 FURMATCIHMIS/2IK, THSYSTEME, AL, Ti eS¥, 490 S///SH TIME, 260X,100F 8, 1,2x) 


' 013 
2920 FARMAT(3{m AG SURVIVING THE 4278 BATTLES eilOF10 


{ 


+ 


oPpPNMNF AOC AM 


1 


((X(K2,1),T31,19)/K251-8) 
IFC SkKYP.LE.Y.E°S0) GO TO 2670 
WRITE( 622920) ((X(Ke1),721,109,K29,10) 
K2=10 
ON 2045 Jsie3 
K{=Kee! 
KPsK 147 
WRITE CH, 2925) Je ((XCKe TV eTE% eI OV, KEKi eke) 
WRITE (H,2927) (CXC KeT),TH1410),K 235,48) 
K 224K 
DN 20h6 Jee 
K{=K2e{4 
KP=K{ 46 
WRITE (662930) Jol CK(Ke To TEL eI OV, KEK Le Ke) 
WRITE (6.2935) COKCKeT),TEI,19),K=E70,81) 
WRITE (6,2940) ((¥CKe1),1341,10),K8R2,86) 
67 TNH 2000 
WRITE(6,29N90) TIMEL,TSTART,TEND 
69 TO PANO 
FORYAT(AX,GHTIME,F10,2,274 18 DUT DF DATA TIME RANGES,FT7,2, 
bw 70,F7,2) 


J14 ,N39CL OM weet anew en) / 

TH TATALS, 20K, 10F10, 3/7 

134 NUMBER LOSTS,1Ax,10F 10, 3/ 

10H RESUPPLYE, 21K, LOFL To iv, LBC lOMawennerene) / 
164 TOTAL LAaUNCHEDS,1° ‘O,3// 


134 AA LAUNCHEDS, 184%, 3 sar 
P24 Ab LOSSES NYE TD o443,9R,19F10,37/ 
134 6G LAUNCHES, 18x, 198] v/ 


224 46 LOSSES DJF TD ober Oy, SOF LO, 3714 


(i 
a OF, 
224 AG SENT TI THE FORTE, On, 10F10,3) 


2925 FORMAT (Oy, 4HT) Fr,Tleles, teu, LOFi1o, 3/ 


{S¥,12WAGAINST SIF, GK, 1 NF10,3/ 
1S¥,12HAGATNST S2F,4K,3NF10,3/ 
15SX¥,/2HAGAINST wiFt,Gx,10F 10,37 
'Sx,'24aGaINST M2FRE, Gx, 1OF10,3/ 
1SX,12MAGATNST ABEL, cK, 1NF10,3/ 
15X%,12HAGAINST AUF E,UxK,10F19,3/ 
1SY¥,{2WAGAYNST WSFG,UxX,10F 10,37) 


C927 FIRMAT(AIH AG SENT TO THE RE ARE, INK 1OFI10,3/ 


? 


V1¥,12MAGAINST GIRG,RX-INFI0,3/ 


5L7 
Z0/ 


TYPES 


OHeeaeeeenee) ) 


oon OnrIanInInann 


aranrInanndann 


11¥,12HaGATNST S2Rt,AX,10F1063/ 

Y1X¥,12MAGAINST AIRI,AX,1OF10,3/ 

YiX,12HAGAINST #eRt, AX, 1NFI0,3/ 

11X¥,1°PHAGAINST #*3RE,AX,190F19, 8/ 

11X,12HAGAINST *URE,8X, 10F10, 37 

11X,12NAGAINST ASRE,AX+1L0F10,3/ 

11X,L1HAGAINST Lite 9X, 10F10, 3/7 

11X,/1HAGAINST L2te9X,10F10,3/ 

11X,10HAGAINST Str 1OxX,10F 19. 3/ 

S1X,JLHAGAINST 818,9X,10F19, 37 

11X,L1HAGAINST B22, 9K, LOFIN 3S/1H ,LS (LOHR eee R eee) / 
254 4G LOSY TD AIR DEFENSES3,6X,SNF10,3/) 3 
2930 FORMAT(17H LOSSES IN FRONT e11,13H DUE TO GIFs ,10F10,37 
18X%,134 DUF TI G2F:s ,10F10,3/ 

18%,13H DUE TI wWiFs ,10F10,3/ 

18X,33H OYF TD w2Fs ,10F10,3/ 

{8X,134 NUE TI ABFE ,10F10,38/ 

18X,13H DUE To WoFt ,L0F10,3/ 

TRY, TSH DUE 7D WSF? - POF VO, 37) 

2935 FORMAT(20H LOSSES JIE TAT GIRG,11X,10F10,3/ 
16X,4HGORteLix, LOR 10, 3/ 

165%, GHW{R ee L IX, 10F10,3/ 

16X,GHWORs, 11x, 10F10,3/ 

VOX, GHw3Re, 11K, 10F10,3/ 

1OX,GHWORErIIX,10F10,3/ 

1{6X,4HWSRevtIXe,1OF 10,37 

{7X,3HL 18 ,31X,10F10, 3/7 

17X¥,3HL28,11X,10F10,3/ 

18X,2HSg oti Xe 1 OFI10,3/ 

17%, 3HB8ye@,11X,10F10,3/ 

{7X¥,SHROG, LIX, LOF LO, 3/1 pL SCL OH eankkakeen) ) 

2960 FIRMAT(26H TOTAL LIST ON THE GROUNDE,SX+10F10,3// 

25H LOSSES AT BL DUE TO 4+AGeq,6¥,19F10,3/ 

244 LOSSES AT BL DUE TM 4M2,7X,10F10,3/ 

254 LOSSES AT Be DUE TN +4AGy,6X,10F10,3/7 

24H LOSSES AT B2 DUE TM OME, 7X, LOFLI0O, S/IH pIBCLOHeeaeeenken) ) 


vAw=- + OF ££ + *F * OO rT NowWwN = OrnwATFANOoOe ee He 


cwWwNwM + 


REKKKKERKRKKY 


* * 
* M TABLES * 
* * 


eekekkakecank 
3000 99 3060 T2112 

PROCESS SYSTEM PMY" ANS THEN WMD, 

IF(T,EQ.1) GO TO 3005 
WHEN SYSTEM "M2" TS TN PROCESS READ FROM TAPES & SET OF 
"enmBat TI" DATA CORRESPANNDING TO THE "TYMEY" CONTROL 
PARAMFTER AND TO THE TYPE NF NUTPUT TABLES SELECTED 
TN THE LAST CONTPIL CARD, 

REWINS 3 


D9 3096 1K21,19S8C 
BOO® READ(3) DiiuMy 
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weasel Re ey eA no RI + 


S901 REANCZD TT, CHCIERCIK) + TKEL,NOVAR),SHT2(1),SHT2(2) 
IFCTT.LT.TYMEL) GO TO 3001 
3005 CONTINUE 


C 
C INTTTALIZE LICAL VARTABLES 
c 
DD 3019 J=et»Se 
DD 3O'N Kzt,10 
TIME(K)=0,0 
O10 Xt J,KI20,0 
SKTPs0,0 
| C No FOR UP TJ) TEN DATA SETS 
Pe 
| 9 3030 J21.10 
C 
C PUT IN "VD>ATA" THE INTEGRATED VALUES (VA) OR THE RATES 
C OF CHANSE (OVA) TF THE VARTABLES THEREIN, DEPENDING ON 
Cc WHETHER "SwT3" [TS PISITIVE JR NEGATIVE RESPECTIVELY, 


IF(SW78.67.0) 69 TI 301 
27 301d TK ySieNCv 

30$1 VDATACTKJISEDVACT KI) 
G3 TO 3044 

3012 07 3013 IkKIa1-NCV 

3013 VDOATACTKSIEVACITKY) 

ZO1U CONTINUE 


ee 


COMPUTE THE DESIRED HISPLAY VARIABLES FROM THE 
APPROPRIATE DATA, 


rInann 


TIME(S ETT 
X(1,J32V0NMS7,8) 
XC2,JISPNSULP(T,S)AOSU2P(T,S)+A0SU3P (14S) +h0S4uP(y,$) 
X(3,J)2°0578P (1,8) 
K(G,JIEVEINLOT,S) 
X(S,J)ea05UIP(1,S) 
XCo,JISROS7TBX(1,S) 
X(7,J)SV0NS8,S8) 
X(B,J)zAO0SUOP(S) 

SKTP= SkyP4ex(U,J) 
IFCY¥(7,I),67,1,£920) X(9,S)EVOSUPP(T,SI/X(705) 
¥(10,J)2V0545P(7T,S) 

KEL {se JyevegayP(1,S) 
K(12,J)=ePn54yP(1,8) 
Ot “SOhS Kets S 
Le(kKel)e7 
X(YBeL,SVHERPOZOYP (IT, «,S) 
X(LUslL, JIEROZO2P CT, K,S) 
X(J54#L, J) SROBNOBP(T,«,S) 
X(164L, J) SROVOBP(T,34K,S) 
XOL7HL, TI EROZOBP(T,64«K,S) 
X(LR4L, SISROBNBP(T,9+K,S) 
30$S KC19%4¢L, JISROZORP(I,12¢K,S) 
X(BU, THSEROZOZP(T,S) 
XC3S,J)SRNZ0UP(T,S) 
K(3K,7T)ERNZ0OP(T,3,8) 
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3020 


nNarIan 


3025 
3030 


aIoOnrnoaranon 


3040 


30u5 


3050 


X(37, J SRO 3NGP(T,2,8) 
XO3R,SVEROZOGP(T, 3,38) 
X(39,7)SP0309F(1,4,8) 
X(N, TYERO309P(T,5,8) 
XCU1, TIVEROZOSP(T, 1/8) 
XCUP,TIEROSOSP(T,2¢8) 
X(43,7)SR03069(1,58) 
x(UU,J=EROBOTP(T, 1/8) 
X(4S,TVEROZOTP(T, 2,8) 
X( Ub, TISANSYPP(T,S)FA0SUBP(T,S)esO5uuP(y,S) 
X(SE,TVSANSUZP(T,S8) 
K(SU,J)ea0541P(T,S) 
X(55-,I)SA0305P(1,1,8) 
X(56,J)2aN305P (2,178) 
X(S7,79240326P(5,71¢°S8) 
X(SA,T)BANS26P (2,108) 
X59, 7)24N326P (3,148) 
xfon, T)Sa0sueP(y,s) 
X(6%,7)24NS32P(S) 
K(62,J)2a0sdaP(r,$) 
K(U7,J)SANSUOP(S) 
X(UR, T)YSANS06P(1,8) 
X(UO, J )EANBIGP (2,8) 
X(50,.1)540325P (1,8) 
X51, 7)2Aa0325P (2,8) 
X(52,.1)=40325P(3,8) 


READ FROM TAPES A NEW DATA SET CORRESPONDING TO THE NEXT 
TIME POINT, WHICH IS INDICATEN BY THE CURRENT "CARD TYPE" 
PAPAMETER, (NOTES NEW VALUES IN PVA" AND "vary 


IFCTY.GE.TEND) GO TO 3040 

IF CSWTA,NE.1,0) GO TO 3930 

DN 3025 IK Je1,INTV 

IFCTT,GE.TEND) GO TD 3040 

READ(3) TT, (XCOEFCKY,KE1,NIVAR)/SHTA(1) + SWT2(2) 
READ(3) TT, (XCDEF CK) /KEL,NIVAR),SWT2(1),SWT2(2) 


TF SOME LAUNCHERS ARE STILL FUNCTIONING AR THE SYSTEM IN 
PRNCESS IS "M1", GENERATE BLOCKS OF PRINTOUT CONTAINING 
THE VALUFS JF SELECTED VARIABLES FOR UP 70 TEN TIME POINTS, 
Tn ANY CASF, OMIT CERTAIN BLOCKS IF THERE ARE NO 
FUNCTIONING LAUNCHERS, 


IFCC SKIP,LE,3,-E250),ANN,(1.E9,2)) GO TO 2000 
WRITE (653910) TeSIOECS),CTIME CK) ,KEl,10)-CCXCK1,K),KE1,10),Kis1,8) 
WRITE( 43920) (CKOKI OK), KEL,10)-K129,12) 
IF(CSKIP,LE.1,.E2920) GO TN 3050 

K3s4? 

D1 3045 Jei.3 

KPSK sey 

K%EK 24H 

WRITE (56,3930) Te CCXOKS,K),KE1,10) 2K 1=EK20K3) 
WRITE (653935) COKOK1L AK), KE1,10),Ki534,46) 
WRITE C6, 3900) (OXOKS¢K),KE1,109,K1547,52) 
IF(SKIP,LE.1.F"20) GO TN 3040 

WRITE (653950) COKOK1L 9K), KE1,19),K1253,62) 
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3060 WRITE (CH. 3960) 


67 TO ennn 


BI10 FIRMATCYHSS/2A1X/RHSYSTEMEM, TL ,SX,AL0////5H TIME, 26X,1N(F 8.1, 2K)/ 


orwr7sn 


2 
% 


, Newvyu=— 


1H , (SC {Ona e ea eee) / 
TH TATALS,CUX,10F10,3/ 


24x NUMBER LOST OR USED:, 10x, 10F10,3/ 
10H RESIPPLYS, 21K, 10F10,3// 


OH TOTAL Lt,2ex,10Fin,3/ 


13H NUMRER LOSTH,18X,190F10,3/ 
104 RESUPPLYS,23Xs10F10,3// 


OK TOTAL SteeexplOF10, 3/ 


134 NUMBER LOSTELBX,LOFIO, 3/1H sIS( LOH KKK RR KR KE) ) 
3920 FORMAT(16H NUMBER “4 PER St,15X,10F10,3/ 


BJH NUMBER JN TRANSYT IN REBRY 


eL0F10,3/ 


144 NUMRER PER LErlIX, TOFINO S/IK pL SCL OK Raa) / 
{Re TOTAL “M LAUNCHED: ,13¥,10F10,3/) 


10F1{O,3/26xX,S5xG2F 8 


Pox, SHWE? 
POX, SHWOF Et 
POX, SHWIF Ss 
POX, SHHWUFE 
PEK, SHWE 


POF LO, 3/7 
pLOF LO, 37 
EVOF LOG 37 
r10F10,3/ 
Pur Les) 


71 OF 10.32 


BBWS ENRMATCIX/IONX,CLHIN REAR AGAINST GIRs p,LOF10,3/ 


26K,5HG2QR: 
PAX, SHWIR?E 
PEX, SHH ORY 
26X,SHW3RY 
26%, SHWURY 
Pex, SHHKER: 
P7X,4mL IE 

27,4 2k 

ARK, 3HKSt » 
PTX, 4HRGE 


e1OF10,3/ 
,L0F10,3/ 
pLOFLO.357/ 
s10F10,3/ 
eLOFL0,3/ 
pIOF 10, 3/ 
010F10,3/ 
PLOE LO 37 
LOR LO, 37 
piNF{O,3/ 


wanw--s OO ££ £'s DD 


PTY, UHR sLOFLO, S/S fH pL SCS OH aeakeeeaan) / 
4 164 TOTAL M LOSSES!,15X,10F10,3/) 
3940 FORMAT({6H TOTAL S LOSSFS2,15X,10F10,3/ 
11H NUE TO MLR, 2OX,1OF10,3/ 
RK, BHMPE,eOX,IOFI0,3/ 
AX, BHAL Ee, 20K,10F10,3/ 
RX, SHAPED 2NX SL OFL0,3/ 
AX, BHABSE,20X,90F10,3) 
3950 FORMAT(C POH 4M LISSES DUE TO § LOSSES!,5xX-10F10,3// 
{6% TOTAL L LOSSESt,15%,10F19,3/ 
114 NUF TO 4Le-520X-10F10,3/ 
AX, 3HMP 2, 20K, 10F10,3/ 
RY, BHATE,2OKX,IOFI0,3/ 
RX, BHA, POX, LOF10,3/ 
AX, SHATE, POX, LOF10,3/ 
264 M LOSSES DUE TD L LOSSES#+SXe10F10,3// 
21H TOTAL GOR ATTRITIONG, 10K,10F10,3/ 
Yin “ LOSSES DUE TO G2R LOSSES? »10F10,3) 
3960 FORMATECNH ,13CL OM ka eRe eee KR) ) 


IFA Vo 


| 
3930 FORMAT (26H NIIMBER LAUNCHED IN FRONT ,TU/IRX,L3HAGAINST GIF ¢ , 


orn Fryeoc w= 


Cheek hakenae 
* * 


C 
¢ 
G 
b * B TABLES * 
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* * 
eek aektakkeaaek 


INTTTALIZE LOCAL VARIABLES / 


agIaaaIn 


4000 ON UO?Pn yes,10 
07 4010 Jzir26 

W010 X(J,1)S0,0 
X(2R,T)2060 
X(29,7)20,0 

4020 xf27,7T)=RLNK 


ee 


[= 
€ No FOR UP TD TEN DATA SETS 
£ 
DN 4204O YH4410 
TIME(TISTT 
e 
E PUT IN PVDATA" THE INTEGRATED VALUES (VA) OR THE RATES 
C MF CHANGE (DVA) ME THE VARIABLES THEREIN, DEPENDING ON 
C WHETHER "SwT8" 18 POSITIVE JR NEGATIVE RESPECTIVELY, 
¢ 


IF (STA, 67.0) GO TO 4022 
DO 4024 IKJEi/NCv 

UO2Y VIOATAYTKJ)SNVACIKI) 
69 TO adea 

4022 DD 4023 yk re1,NCV 

GO2R VOATACTKI=VACIKS) 

G02u CONTINUE 


COMPUTE THE DESIRED DISPLAY VARIABLES FROM THE 
APPRIPRIATE DATA, 


aan 


D9 4030 Jetr2 
Ke( Jef jwd 
X(LeK,7=V(NBOJ,S) 
IFOCXCI eK, 7 9.LE. 1 E9590) GO TD 4029 
XC BEK,TISFOSOIX( Lp Te S)eV(NASEL,S)/X CL eK eT) : 
X(USK, TISFEOBOIX( Ar J+ SIueV(NASHE 2,8) /¥ (14K eT) 
MCS#K, TISFOSOIOUKCS-Sr,SdaeV(NaS#B,SI/KCL eK, I) 

4029 CONTINUE 
KC2HK,TIEK (SEK p TOK (GEK, THX (54K, T) 
XCO4K,TIECOONIP(S,S) 
X(7eK,T)=EC0004P (1,58) 
X(ReK, TIECNOOUPC2,S) 
X(274),T)EeV(nSB+J-S) 

4030 X(9eK,7)=00004P(3,S) 
X(1{O,7)SV(NAU,S) 
X(20,T)SENSIYP(S) 
X(21,TISANSISP(S) 
x(22,7)eROS72P(S) . 
X(23,1T)sVONb5S~S) 
X(2U,TISENS1L2P(S) 
¥(25,7)240516P(S) 
X(26,T)SROS7AP(S) 


LS SS anes 


PEA FRIM TAPES A NEW MATA SET CORRESPONDING TH THE NEXT 
TIME POINT,» WHICH TS INDICATED BY THE CURRENT "CARD TYPE® 


aon 


Lye 


PARAMETER, (NITES NEW VALUFS IN "VA" AND "DVA") 


TFCSHT2CS),EQ,1) XC27eTEASTRK 

IF(TT.GE,TEND) GO T7 4050 

IF(SaTA,NFLI,0) 69 TO Unun 

ON UORS TKJELeINTV 

IFCTT GE. TEND) GO TD 4050 
GO3S READ(3) TT, CKXCIEF CII, Sei ,OVAR),SwWT2(1),SHwT2(2) 
WOUND REAN(3) TT, CXCOEF (KY, KES ,NIVAR),SKHT2(1) ¢SKT2(2) 


GENERATE THE RELEVANT PRINTDUT TABLES FOR UP TO TEN 
TIME POINTS, 


Onn 


4050 wWRITE(6,4940) SIDE(S)-(TIMECI),121,10) 
ON N60 Teie2 
KiS(Toi)e9e) 
KPSKY OR 
KSaKi44 
KUsK34{ 
KS=oP7el 
4060 WRITECH/U9PO) ToC (XCSoL Vel Ete 10, IEK1,K3) 6 (XCKS,L),LE1,10), 
COXCT LS ,LEL 10), JSKu,Ke) 
WRITE (GH, 4OZ0VC(X(SeT) ¢1E41+10),3219,27) 
69 TO 200f 
U910 FARMAT(VHYsS/2YX, BHSYSTEMEB, OX, AL0////5H TIME 2oxX,10(FR,1,2Xx) 
{ JIA FLD CL ON eka eke REM) ) 
4920 FORMAT(3H (8,11-3H)/ 
TH TNTAL2,CUX,10F10,3/ ; 
{7H NUMRER AC PER Br,14X,10F10,3/ 
RX,9HAJ PER Be, 1UX,{OF10,3/ 
PX,9KAD PER, Ber tdkriOFi0 d/ 
RX,QHAZ PER Be, J UX, {NF10,3// 
194 LINREPATRED DAMAGES, 12X,30F10,3/ 
20H NERRADATIDN FACTORS ,11%,10F10,3/ 
TJ~H AY LAUNCH RATE DFGRANATIMNY e10F10,3/ 
Z{4 AQ LAUNCH RATE DFGRADATIAN: pLOP LO, 37 
S1H AZ LAUNCH RATE DEGRADATION: rpiOF10,3/1 , 
{SCL On aakakeeawe) ) i 
U930 FORMAT(CIOH TOTAL AUS,2ix,1OF10,3/ 
134 NUMBER USEDI,18xX,19F10,3/ 
23H NUMBER LOST ON GRIUNDS,8X,10F10,3/ 
$OM RPESUPPLYS,21Xe1 OF YO, 8// 
$ON TOTAL ASt,21KXe 1 OF 10, 3~ 
{34 NUMRER USED, 18X,10F10,3/ 
234 NUMRER LOST IN GROUNDS ,BX,30F10,3/ 
JOM RESUPPLYS,2IXA, TOFINO, S/IXpI3(L Oem eeeaenne) // 
{SH HOURS USING ASpIbXpLOCOK re AL, 3XISSIH pL dCi OMawkenenene) ) 


_ 


esowvnvyr ee NM OCOwWNV= 


p~wTFNMOWWV~— 


KHER eehee 
* * 
* GY TABLES »« 
* * 
Keke kee ere 


INTTIALIZE LOCAL VARIABLES 


ONOAAMNAIANM.S 


5000 DN S020 721,10 
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5010 
5020 


OrInaIann 


S02 


5022 
5023 
S0eu 


> ¢3:<3'49 


DN S010 Jetet4t 
X(J,T)20,0 
TIMF(T)30,0 


fon F3e@ UP TD) TEN DATA SETS 
DM S050 JT#1-10 


PUT IN "VDATA" THE INTEGRATED VALUES (VA) OR THE RATES 
NF CHANGE (DVA) MF THE VARTABLES THEREIN, DEPENDING ON 
WHETHER "SWTB" 1S POSITIVE OR NEGATIVE RESPECTIVELY, 


IF(SkKTB.GT.0) GO TO 5022 
29 S24 Ik sey eNCV 
VDATACTKJ)EDVACIKS) 

69 TO Sfeu 

O99 5023 sessi,nCv 
VOATACYKIIEVAIIKY) 
CONTINUE 


COMPUTE THE DESTRED AISPLAY VARTABLES FRN¥ 
APPROPRIATE DATA, 


THE 


TIME (T)=TT 

K(2,1SV(NGIF 41,58) 
X(3,T)2V(NGIF 2,8) 
x(U,TYeVeneles3,S) 
X(S,T)eV(NGIR,S) } 
KCL,T 2X C2,T)eXC3eT eK (4, TeX (5,1) 
Xf 7,])SA05HIP (158) 
X¥(8,72A40501P(2,8) 
X(9,1)2A0501°(35,S) 

Kf, TISAOS3IP(S) 
XCO,TIEX(T,TIOXCR,TIOX(9,TIeX(10,1) 
XCLt,T)=R057UP (8) 
XCIS,TIEROHOIP(S,S) 
x(1U,TJSROH01P (2,8) 

X(1S,T =F 9601°(3,8) ; 
KOVR, TISK(YS,TI+xC1G,T4x(15,7) 
X(1L6,TIEVINXF4+$,S) 
XOCLI,TISVOINXF 42,8) 
K(LR,TISVEINKE 43,5) 
X(19,TySC0601X 

XC20,TERNENIX 
xO21,7)200601P 01,8) 
X(22,T)2C006031P (2,8) 
K(2%,75200601P(3,8) 
Xf2U,T)SFHONIK(1,S8) 
x¥(25,T)=F9601xX(2,S8) 
¥C2h,T)FFOG0X(3,8) 
X(27,-TIEDVINKXF 41,8) 
X(PR,TISNVINKXF 42,8) 
X(20,TIENVINKXF 43,8) 

99 S030 Jet-3 

Ke( Joel jej? 

Kt SOeK,T)ZANSOLP(S,S) 
x(3LeK,FVSANUOIP(S,S) 
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5030 


5940 


504e 


OIomaqn 


5045 
5050 


oonme 


5960 
5070 


5910 
{ 
> 
3 


4 


K(BPeK,TYSAdUN2P(1,5~8) 
X(3SeK,T)ZANU02P (2559S) 
X($40K,7T)S4NGN2P (3,578) 
X(354",7)sa0u02P(u,J,S) 
Xf 35eK,1)2A04N2P(5,3,3) 
XC B7THK, TISANZOLP (CL, IS) 
X( BRK, TISANBZOLP(2,5,58) 
XO396K,T)Sa0321P (1, 5,58) 
X(404K, T)SANZ2IP (263,38) 
KOO eK, TI=ZAN3Z29P (3,505) 
X(66,7)2A0531°(S) 
XCO7T,TYSANZOBP(1,98) 
X(6R,1T)2A0393P (2,58) 
X(69,TY=ANSP23P(1,8) 
X(70,7)2A90323P (2,8) 
Y°74,TYSAOSSSECS, 8) 

D5 S0un Jsied 
X(7Le+3, TT) 200601P (3,8) 
X(TUES, TISVOEOLK(S,S$) 
X(7TR4+I,7T)2R0601P (5-8) 
XCTReTIERNENZX(S) 

Kobe 

D7 5942 Jets30 
¥CR14+ 3, TSvese%) 
(Lifes, 7IsAv(J.S) 


REAN FRIM TAPES A NEW DATA SET CORRESPONDING T9 THE NEYT 
TIME PJINT, wHICH ITS INDICATED BY THE CURRENT "CARD TYPE" 
PARAMETER, (NITE NEW VALUES IN PYA™ AND *#OVand 


IFCTT.5E.TEND) GO TD 5060 

IFCSWTALNE.1,0) 69 TO 5059 

N99 Sous J[Kssq,INTV 

IF(TT,GE,TEND) GI 19 5060 

REAN(CS) TY, CKXCIEFC J + JE1,NIVAR),SWT2(1),SHKT2(2) 
READ(3) TT, CXCIEF(C I) + JEL,NIVAR) »SwT2(1),SHT2(2) 


GENFRATE THE RELEVANT PRINTOUT TABLES FOR UP TO TES 
TIME POINTS, 


WRITE(6,59103 SYDECS) -CTIMECIS, Tet, VO -CCXC I-13, TS ,109,021015) 
WRITE(6,5920) (C€X0Je1),751410),J2e16,29) 
KP=?9 
DO SOTO Kegs 
K{sK2o4 
KPaK{ oq! 
WRITE LG -/59350) Ke COXCJoT,TE3,10),3eKieK2) 
WRITE (6,5900) (CXC J,1),121510),J266-71) 
WRITE(5,5959) (CXC Je1),121,10),J272,81) 
WRITE (625965) (CXCJ01), 121,10), 3282-311) 
ARITE (625961) COXC Je) ,551,10),J32112,141) 
635 TO 2000 
FURMATOCYHIS/2UK ep PHSYSTEMEGL SX ,ASOSS//54 TIMES 26X PIL O( FR, 12 2X)/ 
1H ,1 DC {OH ae eae kee ee) / 
TH TOTAL#,24X,10°10,3/7 
9M AY FP itecekr1 OF YO. 37 
OH AT Faz,22X%s10F 10,37 


St 


9H AT F32,22X,10F10,3/ 
Rw IN Ree 23K, LOF10, 3/4/ 
14H TOTAL LISSFS:+17X,10F19,3/ : 
Qu AT Fi8e22X,10F10,35/ 
OH AT Fete, ceXs10F10,3/ 
9H AT F32722X%,19F10,3/ 
aH TN REP23K A L0F10,3// 
YAH RESHUPPLYE,21X,10F10,3// 
{74 MOVEMENT R TD F3,14X,10F10,35/ 
Ow TAO Fqgp22x,{oryn,3/ 
OH TH FotacetelOr yd. S/ 
on TM FRL,e2Xe 1 OF IN, S/1H ZL 30 LOH axe aeaeeene)) 
5920 FIRMAT COOH FERIA POSITION (FL ', 11%, 10F 10,37 


one ae 


TN OCAWU- BF OPA T A 


{ 1SX,SHCF2)t,1iX-LOF 10, 3/ 

? 1SX,5HCF 3b, 11X,10F10,3// 

% 314 SHAPING FACTIR FOR FEBA MOVES ,10F10,3// 
q PUR MAX FEBA YOVEMENT RATES, 7X¢10F10,3/77 

5 SiH R FACTOR FOR FEBA MOVE CRY) FLOE LO. S/ 
6 PUY, 7HCF2)8 ,10F10,3,/ 

uy CUXSTHCE SY? «VOR lO. 3/7 

R ZOH FRACTION DF MAX FERA MIVEMENT/ 

C 204 COMMANDED BY F13,94X,10F10,3/ 

+ 17X,3HF Ot, 31X,10F19,3/ 

{ (7X, SHE St,11X, LOFT O 3/7 

a {RH FERA RATE AT Fit,S3x,L0F10,3/ 

3 15%, 3HFO8,13X,10F10,3/ 

a 15X¥,3MF SE, L3X,LOFLO  S/IH pI BCL Od akaekeanaen) ) 


5930 FIRMAT(S2H LOSSES AT FyTi sity 1 7X, 10F10,3/ 
1d SUE TO Give lI Xs OF La. s/ 
(1X, SHW1E, LIX, LOFLO,3/ 
$iX,BHWot,I7TX,10F10, 8/ 
1X, 34W38,17X,10F10,3/ 
11X,3HWas,17X,10F10,3/ 
11X,3hWS¢,17X,10F10,3/ 
11¥,3mM9S,17X,10F 10,37 
11X,34M22,17X,10F10,3/ 
11¥,3HA{2,17K%,10F10,3/ 
11X,3HACUC, LIX, L0F10,3/ 
1X, 3KHATE,L17X,10F 10,37) 
S940 FORMAT(13H LOSSES IN Re,18X,10F10,38/ 
{4H QUE TO MiseS7X%,10F10,3/ 
11%,34™23,17X,10F10,3/ 
{1X, SHAG, 17X,10F 10,37 
$1X,SHACT,17X,10F 10,387 
{EX , BHAZE,ITX,TOFLOL, S/1 4 pL BCL Ode awemkaeaee) ) 
5950 FORMAT(2{H DFMAND FIR GL IN F$gy10Xe10F10, 3/ 
18X,3HF2t,10X,10F10,3/ 
{PY , SHE SZP,LOX,10F 10,3877 
25H MAXYTMUM USABLE G4 AT Fip.6%,10F10,3/ 
POX, BHF DT, OX LOFI0O,S/ 
POX, SHE ZT, BX eLOFIO,8// 
314 MAXTMUM MOVEMENT JF G1 R TT FE,LOFE10,3// 
PU MOVEMENT JF GIR TM E18, 7X,19F10,3/ 
P1X, 3HF OE, TX,{0F10,3/ 
PIX, SHE BE, TX, {OF LO, S/LH pL BC LOH aww een eee) ) 
SIRO FORMATCUXS//IX LS (LON eka aaeecen) / 

{ Gort, 22HCENTRAL CIMMAND SYSTEM/{ XI SCL OH RRR eR ee RRR) / 


ACA Ve SPBPxwOT ME Me FWA 


OmprwsFrMNownv=- 
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P4H NUMRER JF TARGETS, TYPEwy 

VOX, SHGIFL te TXeLOF LOL 3/I9X,SHGIF Og, TX,10F10,3/ 
VOX, SHGIF SS, TX,LOFIO, S/20K,UHGIRE, TX,L0F10,3/ 
VOX, SHWEF Lt TXPLOPF LO, S/19K,SHH1 Flt, 7X, 10F 10, 38/ 
LOX, SHWIF SL, TXe,LOF LO, 3/419K,5HwoF 194 7X,10F10,3/ 
19K, SHW2F2t,7TXeLOF LO, 3/1 9X, SHwor dt, IX, 10FL0,3/ 
LOX, SHASFL te TXeLOF LO S/1I9K, SHaSh ote TX, L0FIN, 3/ 
19¥,SHW3E SP, IXsLOFLO 3/19, SHMUEL Eg, 7X, 1 0F10,3/ 
LOX, SHWUF IE, TXALOF LO S/19X, SHwOE SE, IX, L0F10,3/ 
19X,SHWSF Lt, 7X, L0F10, S/19X, SHHSE OE, 7X, 10F10, 3/ 
19X, SHWSFZte Xe lLOFLO,S/20X,UHKIRE, TXs10F10,3/ 
COX, 4HW2RE, TX, LOFILO, 3/20K, UWP Ee, 7K, 10F10,3/ 
2OY¥,4HWURs,7X,10F 10, 3/20K,UmWSRE,TX,1OFL10,3/ 
PLY, BAL Lt, Tp LOPLO,S/21K, SHL 2g, 7X, 19F 10, S/ 
{9X,SHG2F ite TXeLOF LO, 37 $9X,5HG2F 28, 7X, LOF10, 3/ 
$9X%,5HBEOF Ste TXeLOF10,. 3/20X,4kGARE,7TX-10F 10,377) 
5961 FORMAT (PBH NUMBER JF ACMUTRED TARGETSe/ 

LOX, SHGIF LS, TXeLOF LO, S/19X,SHGIF 28, 7X, 10F10,3/ 
1GX,SHOIF 3s, 7X1 OF LO, 3/20X,dHGIRE, TX,10F10,3/ 
SOX, SHWIF LS, 7TXA/LOF LO, 3419X,5HWIF 23, 7X,10F10,3/ 
SOX, SHWLF SED TXPLOFLOgSAL9X,SHMOPL Ee TX, 0F IO, SY 
LOX, SHW2F OE, TX elLOFLO.S/I9K,SHW2F3E, 7%, 10F10,3/ 
1OX,5HWSF Sy TXOLOF LO S/I9IXe SHH SFOEy TX, I0F10,3/ 
SOX, SHWE ZI, TXrLOPF LO, 3/L 9X, SHWUE1¢,7X,10F10,3/ 
SOX, SHWLF OS, 7X FLOP LO, S/19X, SHWUF Se, 7X, 10F10,3/ 
LOX, SHWSFI ty, 7XelLOFLO,3/19X, SHHSFOg, TX, 10F10,8/ 
SOX, SHWSFE Ep Te LOP LO, S/20X, UNWIRED, TX,L0FI0,3S/ 
POX, AHWR, TX,LOFIO, 3/20X,UmMW3REeTX,LOF LO, 3/ 
COK,MHWURS »TX,LOFIO, S/20K,UNW5ee, 7X, 10F10,3/ 
PUN, SALLE, TX p,L0F10,3/21X, 3H, 23,7X,10F10,3/ 
19OX,SHG2F iS, 7X, LOPLO,3/I9OX» SHGOP lg, 7X,L0F IN, 8/ 
OX SHG QF RP er TX LOFLO, 3/20K,4HGARE, TX, 1OFI0,3/ 
TX, {VON awaeaxeake)) 


NTFTNEUWUNMN-\6+ OBP~xwWPF A CAN 


TNC wen err CO YPN FMO NAN = 


eRe EH 
* * 
* GO TARLES «* 
* * 
Ktkekeeekeaee 


TNTTIALIZE LOCAL VARIABLES 


Ce Cl FF 02 C48 CF C3 Ce cy 


6000 DT B20 T21010 
D7 6010 J2#1.73 

6010 XCJ,1)20,0 

6020 TIME(T)=0,06 
Swtce|en 
TF(S,G6T.2) § 


wT \ 
TFCSseT se) Ses 


r 
~ 
> 


2 


C 

E NO FOR YP TD TEN DATA SETS 
07 6060 TH1519 

C PUT IN "VDATA" THE INTEGRATED VALUES (VA) 9R THE RATES 

c MF CHANGE (DVA) OF THE VaRTABLES THEREIN, DEPENSTING ON 

C WHETHER "SWTB" TS POSITIVE JR NEGATIVE RESPECTIVELY, 


277 : 


oO 


araan 


6021 


6022 
6023 
6024 


6930 


6040 


IF(S*TR.GT.9) 69 TJ 6922 
N9 6021 kKs=t,NCv 
VOATACTKJIVSOVACTI KS) 

69 TO 624 

07 6023 rk ye4,NCV 
VOATACTKJ)EVA(IKJ) 
CANTINUE 


COMPUTE THE MXESIRED DISPLAY VARIABLES FROM THE 
APPRIPRIATE DATA, 


TIME CT) STT 

Q22u,0nE0521x(S) 

D0 46030 Jsirs 

XC LoS, TISVCNGOF4+J,38) 

IF(SaTC NEL) KC Le, TDISDIVINECK (1+ JeT Ie V(NGIF 4+J,$) #Q) 

XfOs+ T+ TVSAOS2ZIF(C I», SIHAD5S22P (5, SV+E0S21P(J,S) 

X(13es,7)220402P(5,8) 

X(S,TIAV(NG2R,S) : 

IFCSWTC,NE.S) XCS/IT)VE0IVIDECK(S, 1), QeV(NGIR,S)) 

X19, TYSANS32P(S)+40533P (8) ; 

XClLseTvexce, LIeXCSeldeX CG, yexeSatd 

IF(SHTC,NE (1) XCL-/,IIFENIVINECVINGOF 41, S)*V(NGCF +2, 8) 4VINGCF SS, S)¢ 
VONG2R,S), ORC VINGIF S$ ,S)+VINGIF*2,S)4VO(NGIF 43,S)4¢V(NGIR,S))) 

KCoeTIEXC7,TI#X( Bel IX (9, TIHX(10,T) 

X(14,T2C00607X(S) 

X(12,T)=R9575P(S) : 

XCV3,TIEKCL4,T)+XC15,/1)+xXC16,T) 

XCL7,79=SA0521P (1,8) 4AN521P (2,8) 4405217 (35,8) 440532P(8) 

D7 6040 J=1-3 

Ke(Jeijyeti 

X(LROK,T)SANS21PFP (5,8) 

X(19¢K, 7TILANUNSP(1,5,8) 

X(ONeK, TISANUOSP (245-8) 

XC21+K,TISANUOSP (3008S) 

X(226«,T)2a0403P(U,J,S8) 

X(23¢K,17)=SA0G03P(5,J3,5S) 

X(2U4K,T)EANZ02P (1,308) 

X(254¢€,7)240302P (2,348) 

XC264K,T)=EA0322P (17573) 

XC27#K,T)£40322P(2,3,8) 

X(28+K,J)240322P(3,J,8) 

X(51,1)240532P(S) 

X(52,7)=40304P(1,8) 

X(S3,TI=ZEANZOUP( 2,8) 

X(5U,T)za03euP (1,8) 

X(55,7)5A0324°(2,8) 

¥(56,7)2403240P(3,8) 

K(5R,T)=E0524°(1,5)4¢A0522P (1,8) 

X(59,7)2EN521°(2,8)+A0572P (2,8) 

KX(60,1)=F05219(3,S5)+A0522P(3,8) 

¥(61,7)=4N533P(S) 

K(S7,TIEK(SR,T)+xC59,T)+XC60,7T)4xX (61,7) 

K(62,TISCA606X(S) 

X(6%,T)SEN521X(S) 

99 6050 Jsi03 
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Xf 63e1,7)=90602P (5,3) 

K(THH I, TI SCOSA22K(S)&V(INGIF 41,8) 
6050 Xf67+),7)=R9602P(5,S) 

X(67,T)ERD6N3ZX(S) 


READ FRIM TAPES A NEW DATA SET CORRESPONDING TO THE NEXT 
TIME PINT, WHICH IS INDICATED BY THE CURRENT "CARN TYPE" 
PARAMETER, (NITE? NEW VALYES IN ®VA"™ AND "Dvary 


€1.49. £9 67 <¥ 


IFCTT, GFE. TEND) GO TD 6070 
IF(SaTALSE 1,9) GO TO 6950 
DD 6055 IKJeyeINTV 
TFETT, GE. TEND) G2 Fo Soro 
6055 REAN( 3) TY, CXCOEPC IY, Jes ,NIVAR),SwTe(1),SWT202) 
6060 READ(3) TT, CXCOEF CK) e KEL,NQVAR),SWT2(1)+SKT2(2) 


GBENERATE THE RELEVANT PRINTOUT TABLES FOr UP TO TEN 
TIME POINTS, 


omn«a md 


6070 WRITE(H699%) SIDECSIACTIMECK) KEL ,10-COKMCJeT),1Et,10)eJH1016) 
WRITE 66,6920) (X¥¢€17,1),321,10) 
Ke=s$7 
OO BORN Jetrd 
K{=K e+] 
K2=K1+4+10 | 
BOBO KYRITE(H, 6930) Jol CXCKe T0121 ,109,KEKieKC) 
WRITE (6,6900) (CXC JeT),721,10),3=51263) 
WRITE (656950) ((X(Je,T),721,10),J3264,73) 
69 TH 2000 
6910 FIRMATCIHS//21X¢ GHSYSTEMSG2,SX,A10////5H TIME + 26X,1N( FB 1,2Xd7 
JH ,L3(C {OH kkKeaeKeReE) / 
7H TOTREE peak por 20. 7 
RH AT Fis,e3xo10F10,3/ 
Re AT F2t,23X,10F10,3/ 
Au AT FSeeeS%, LOR LO. 37 
7H IN RI,2UX, LOFTON S77 
204 TOTAL LIST OR USED, 31K, 10F10,3/ 
AH OAT Fine23x,1NF10,3/ 
Re AT F2ee23xe10F10,3/ 
RH AT F3p, 23K, 10F 10,37 
TH IN RB,20X,10F10,37/ 
RiH PORTION OF Se TO BE PEPLACFOE -10F10,3// 
104 RESUPPLY ,21Xel OFA, 3// 
POH MOVEMENT G2 R TH Fee liX,IOF10,3/ 
15X¥,6HTS Fite LOX, 10F10,3/ 
15X,6HTD Fes ,LOX,19FI0,3/ 
{SX,GHTO F3reLOX,IOPLO, 3/1H pL 3CLONkaaeeeeKRHE) ) 
6920 FORMAT C {MH TOTAL LISSES#,17K%,10F10,3) 
6930 FORMAT( 7H AT Felis lHe,2ex,10F10,3/ 
BX,1OHMUE TD wld, lOx,10F10,3/ 
12X%,3HWo2t, LOX, L0F10,3/ 
$PX, SHW32,16X,10F10,3/ 
12X,sHWUs, 1 OX, 10FI0,3/ 
{2¥,8HWS5t,1OX,10F190,3/ 
120, 3HMqt, 16%, 10F10,%/ 
12¥,3hM22,16X,)0F10,3/ 
{2X, BHAT, 1OX,LOF LO, 8/7 


VPM OoONWV—" 2 ' OMANFINSCWAN- 


NAeowwvewee~— 
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a 12K, SHAPLT, LOX, LOPLI, 8/ 

7 12X%,3HASE,16X,10F10,3/) 
6940 FIRMAT PRY IN Ree23X,iOF10.3/ 
{SH DUE TD M18, LoXe1OF10,3/ 
12%, 3HKM23,10X,10F10,3/ 
$2X,3mHA12,160X%,10F 10,37 
{2X,3HADt,16X,10F10,3/ 
12X,3HABI,I6OX-1LOFLO,3// 
3Li4 ToTAL USED BY OR LOST WIYH Gir lOF10,3/ 
QH AY FitpeeketOr ye, 3¢ 
OH &T Fotee2ex,10F 10,37 
9H AY F3t,22X,10F10,5/ 
Rw IN RepeSxelOFtO,3// 
P14 NUMRER OF G2 PER Gie,1Oxr,19F10,3/ 
P64 NUMRER DF G2 USED PER Gig, SK, OFLO, S/LH ZS CS OH aweaateene) ) 
6950 FIRMAT(1GH DEMAND AT Fig, S7X,10F10,3/ 
PIN SHE Ste LT XE LORLO. S/ 
$iX_e3HFSe,17Xe10F 10,377 
OTH MAY MAVEMENT OF Ge R TO F3,UX,10F10,3// 
214 MOVEMENT G2 R TO Fits tOx,10F10,3/ 
$BX,3HF23,10%,10F10,3/ 
RY, 3HEZE,LOX,10F10,3// 
26H MAXIMUM GP DESIRED AT Fye,5xX,10F10,3/ 
25% — SHE Ot, 5X, LOF VO, 35/ 
OSX, SHE SE, SKeLOFLO, S/LX IBC {Oda ew nkanwen) ) 


NMerwe ODATFINeawvVv=- 


O9UWUNFWM Ewe = 


KRRaKREKaAEKKE AKER 
* * 
x W/R TABLES & 
* * 
Keke keakkeeeitnk 


TNITIALIZE LOCAL VARTABLES 


AMON ODONY 


7000 DO 7020 yY=Ht"190 
50 Foto Je¢erss 

7010 K(J,1)29,0 

7020 TIME(T)=#0.0 


c 
C No FOR UP TD TEN DATA SETS 
C 
ON 70RO I=1,10 
C 
c PUT IN "VDATA™® THE INTEGRATED VALUES (VA} OR THE RATES 
C MF CHANGE (DVA) OF THE VARTABLES THEREIN, DEPENDING ON 
c WHETHER "SWTB" TS POSITIVE DR NEGATIVE RESPECTIVELY, 
C 


IF(S*TA.GT.0) GO TO 7033 
DN 7080 YKSet,NCV 

7030 VOATACTKSIS9VACIKI) 
GO TO 7033 

7031 DN 7932 ye ye1eNCV 

7032 VOATACTKJIY=VACIKJ) 

7033 CONTINUE 


COMPUTE THE DESTRED DISPLAY VARIABLES FROM THE 
APPRYPRIATE DATA, 


nan 
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o 


7040 


7050 


TIME CT)STT 

NN NUH Jair 

Ke3e(Nef jel 

Xf LeJ,T)SV(NWOK,S) 
X(S¢J,T)SVO602P(NeJ,S) 
X(BsJ,TIENOB03SP (NO J2S) 
XCLS4S,TIEROBOSPIN, J,S8) 
X(S,T)SV(NWRON,S8) 
XCL,TISXCP,TI+XC Be TL IEXCG, 1) 4X (5,7) 
XCLA,TISRAOGOOUX(N,S) 
XCLR,TISXCLU,TIOKXCLSeTIEX(160T) 
X17, T)SROSTHP(N,S) 

DD 7OSN J=at,3 

KESe(Nef des 

Le(Jesjey] 
X($94L,7)=ANSO2P(N,J,8) 
xf2NeL,TISANUNUP(1,K,S) 
X(2¢eL_,T)SANUOUP(2,KsS) 
X(224L,7Y2A0U04P(3,K,5S) 
X¥C234+L,TISAOUOUP(4,K,S) 

X(OUeL, TISAONNYP(5,K,S) 
X(254L,7)=A9399P(3,«,S) 

XC264 lL, TI =ANZOGP (2, Ke S) 
XC27¢L,TISAOZ2IP(L 6K eS) 
KC2R+L,TISANS2IP (2, K,S) 
X(294L,7T)=A0329P(3,K;,S) 
X(52,T)=AN503P(N,S) 
X(53,7)=40310°(1,8) 
X(54,7T240310P (2,8) 
X€55,7)249330P(1,8) 
X156,7)240330P(2,8) 
x°S7,7)=40330P(3,8) 
X(59,TISANSZ23P(N,3,S) 
X(60,T)SAN523P(N,2,S8) 
X661,7)240523P(N,3,58) 
X(62,1)=AN53UP(N,S) 
XCSA,TISX(S9,TIHeX(O0eT +X (61,1) 4X 62,1) 
XCLR,TISXCLI,TIFXC SO TIEXCULp THX (52,1) eX C5BrT) 
99 7060 J=103 
X(6347,T) )2v(nReJe3e(Nwj),S8) 
X(7T24¢T,TIEVIGO3SP(N, Je S) 

X( 754), T)=SD9b00P(N, 3,38) 

XCBO+H# I, 7) SROKDUP(N, JeS) 
X(B4+JS,TSVOSUOP(N,J,S) 
X(RReJ,T)=ZVOSUBP(N, J,S) 
Lode(Jeal) 
X(95eL,TISAOSTIP(Ne Je S) 

X(9H+L, TIEANSSIP(N, JeS) 

X(GU4L, TISAOSTIPCNe Je S)+A0SSIP(N,J,S) 
L&(tes)eB. 
X(LO9eL -TISROGO2PIN, JeS8) 
XCVIOL, TISROGOSP(N, J,S$) 
XC1114L,7)22040UP(N,J,8$) 
X(112¢L,T) eR O40UR(N, 345,58) 
KL13+L,T)SROUOUP(N, 645,38) 
X(V1O4+_,TISROUOUP(N,945J,8) 
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CREE ay 


K(O1tSeC,T)e20404P(N, 243,58) 
KCLOBOL - TISK(VOFM*L A TIHXCLLOMFL -TIVeXCLILeL,TI+xXCii2e_ ,lryeX(iidseL,l)¢ 
! YCIPGSL, TI+XCVU5S eb eT) 

7060 XCOROI,TISX(O4SSe( Tal) ,TIOXC1LN84L,] 
X(O7T,TIEVINRRENGS) 
XCOB,TISXCHG,TI*X COS, TeX (66eT)#X(57,1) 
X(B4,TYERASTIP(N,S) 
X(79,TIERHKOSX(N, 3) 
XCAO,TISEX(R1,T)*XC82,1)4xX(83,T) 
Kf RR,T)YSVASUTP(N,S) 
X(92,T)=EVNS49P(N,S) 
XO132,TISVOSSOPCN,S) 
X(104,7)2405727(N,5) 
X(105,7)SA40561P0N,S) | 
X61N6,-TISADSTI3ZP(N,S) 
XCYOS,TIEV(TO4U,TI*XCIOS,194X(104,7) 
XEOZATISKCOG,TIFEX(CLOOeTIEX(C97+TI4X(103-7) 
X(LA7,7ISKCIOR AT) oX(Clilo,JT)¢x(i2eu,7) 
X(72,T)=X(103,1) 
K(GR,TIEX( 69, TIMX(7TOrT)+X( 71,1) +x( 72,1) 


READ FRIM TAPES A NEW DATA SET CORRESPONDING TM THE NEXT 
TIME POINT, WHICH TS INDTCATED BY THE CURRENT "CARD TyPE® 
PARAMETER, (NITES NEW VALJES IN "VA" AND "SVAS) 


noananan 


IF CTT .GE.TEND) G2 TO 7090 

IF(SwTA.NF.1,0) 60 TO 708f 

DD FOIN TK Jst,INTV 

IFCTT GF.YEVD) GI TI 7000 
7070 REAN(3) TT, CKCIEF CK +KS1,NIVAR),SHT2(1)+SWT2(2) 
TOKO READN(3) TT, CXCDEP CK) KEL eNIVAR),SwWT2(L)eSwT2(e) 


GENERATE THE RELEVANT ORINTIUT TABLES FOR UP TQ TEN 
TIME PINTS, 


Noord 


7090 WRITE (5.7910) Ne Ne SIDE(CS) A CTIMECTpTel oe lOdeNo CCXCI, Jp SEL e109, 
{ T=1,18) 


K2=1B8 
99 7095 K=1-3 
K{=K 244 
KPski4j49 
| 7095 WRITE (H,7920) Ke (CXCITe JI, TEI oe 10), TEK1eK2) 
| WRITE (56,7939) (CX(IleJ),J21-10),1252042) 
MARITE(H,T9INN) Ne COXCI Je JEI-10),1263,84) 
ARITE(6e79590) (COKCT eS), JE1,103, 1285-92) + (XC132, 3) e SEL, 9) 
WRITE (6, 7969) (OKCI1,3I,321,10),1293,106) 
WRITE (627970) (COXCI eS), 321,103,15107,131) 


639 79 27000 
TILO FIRMATEVHIS/PL Xe BHSYSTEMEH, TL, 5H AND Roe lL ep SX ep ALN/S/S//54 TIMES 26K, 
{ 1OCFR 1, 2Xd/ALXeL3C1OHeaeekeeeen)/BH TOTAL WeTip ths, 2ix,10F10,3/ 
? BX, 6HAT F4ty24XeLOFLO, S/4K, HHAT F2tye2tXe10F10,3/ 
% UX, bHAT F3Ee21K ep LOFIN, S/SK,SHIN RevelxX,LOF LO. 3// 
4 19H MAY DESIRED AT FLseLAX, EOF LO, 3/1 SK, OHAT FOL, 12K, 10F10,3/ 
. {3¥,H6HAT ESEe1PX,10F10,3// 
4 {U4 NEMAND BT Flast 7K, 1OFLO, 3/RXrOHAT F2teLIXeLOF LO, 3/ 
7 AX sHHAT F3E,1IXP10F IN S// 
R = PH MAY MIVEMENT OF wW,R TO F2,5x-10F10,3// 
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9 P24 MIVEMENT JF WeR TQ Fess LOFLO,3S//L OX, GHTD FILE, 9K, 10F 90, 3/ 
* 16OX,5HTD F2E,9K,LOF IN, 3/1 6OX,647D FRE IKFIOF IN, 3// 
‘ 104 RESUPPLYE,2INGLOFIO  B/LK,L SCL ONee aK eReKR) / 
? $44 TOTaL LOSSES#+37x%,10F10,3/7) 
7920 FIRMAT(AK,UHAT FrTLs lot, 17K, 10F10,3/ 
AX,LOHNUE TI wht, L7x,19F10,3/ 
11¥,34wot,17X, 10F10,3/ 
11X,3HW EE, 17K, L0F10,3/ 
11K, 3HKat,L7X,L0F10,3/ 
wat {Xe HWS ,17X,10F10,3/ 
Y1X,34Ly2,17X,10F 10,37 
{1X,3HL 28,1 7X,10F 10,37 
11X,3HAGt,17X,10F10,8/ 
11%, 3HADE,ITIX,L0FI0,3/— 
(1X, SHAZt,17X~,10F10, 37) 
TIVO FIRMATCOX,SHIN ReelIXe{OFI0, 3/ 
{{K,3HL qe, 17X,10F10,3/ 
1X, 3HL Ot, 17X,10F 10, 3/ 
VLX, SHAT CLIN LODO. 37 
Li, SHAG, 1 7X, L10F 10,37 
11X,3HATE,L7X,10F10,3//7 
{8H LOST WITH Gitel IX, IOFIOL3/ 
BX,6HAT Fit, 17X,10F10,3/ 
Rx, 6HAT FOt,17X,10F10,3/ 
RX, HAT FSE,17X,10F10,3/ 
Ox, SHIN RepLIKrLOFLOLS,20/1K I 3CLONeeeekeeeee) )) 
7940 FORMAT(BH TOTAL Rolie ihe, 2ix,l0F10,3/ 
UX,KHAT FALPAUKsLOF IO, S/UX,GHAT FOt,eixXr,10F 10, 3/ 
AX, HHAT FUE,2IXs1L0OF 10, 3/5K,SHIN Reyp2ix,10F10,3// 
20H TOTAL LIST JR USED, 1K, INF IO, S7IGK,GHAT Fie, fix,10F10,3/ 
LG, 6HAT F28efiXelOFLO,3/1UX,OHAT Ft, LIXs10F10,3/ 
1SX¥,5HIK RELLXALOFIOL,3/719H MAX DESIRED AT Fiu, 12x, 30F10,3/ 
YSX,GHAT F2ReLOX,1OFIO, 3/1 3X, OHAT F3E,32XeI0F10,3// 
14H DEMAND AT FLSGLTX,L0F LO, 3/8xr BHAT Fesel 7x, 10F10,3/ 
AX, BHAT F3E,S7XKX,10F 10, 3//26n MAK MOVEMENT OF RyR TO FE,5X, 
$OF1H,3//22N VOVEMENT OF RLR TO Fe-9X,10F10,3/ 
16X,6HTD FLbeIXeLOF IN, 3/16X,6HTD FAteGXr1OF 10, 3/ | 
YON, GHTD F3ELIXPLOFIN, S//10K RESUPPLYG pei Xe lL AF10, 37 
LX, (3C(OHaekaekaekee)y) 
79S0 FORYAT( 22H NUMBER R PER w AT F§t,9xeSOFL0,3/16X,6HAT F2G,9% 
{ 10F 90, 3/16X%, 6H AT F33,9X,10F10,3/ 
? 17K, 5HTN REPIXZLOFIO,3//31H NUMBER OF R IN TOANSYTT AY Fit » 
% LOF GO, 3/PUX, THAT F2e ,10F10,3/24X%,7HAT F38 4,4 OF {0,37 
4 25¥,6KTN RE FJOFIO,3//22H NUMRER DOF R IN SITESE,9X,10F10,3/ 
5 IX,{ BC Nk eweeeeeeeeey)) 
7960 FIORMAT(IGH TOTAL LISSESt,S7X,10F10, 3//BX,OHAT Fite § 7X, OF10,3/ 
§ IX, THWITH WEDLTIXSLOFIO, S/O%,BHWITH GotrLIXr10F10,3// 
2 RX,BHAT FOty,1L7TXeLOPFLOV3S/IX,THWITH Whe I TXVLOF LOSS 
t OX,RHATTH GOt,L7Xe10FI0, 3//8X,GHAT FUt,L7X,1OFL0,3/ 
4 TK, THWTTH WEL TKp LOR IO, 3/6X,BHKITH Goa, IX,iNF10,3// 
S 
= 
7 


» OBNF NCA V=— 


cwus 


sonvrwiwrs 


enV = 


wt OMNES 


OX,SHIN Repl Ie LOF LOL, 3/7Xp TMI TH wee LIX r10F 10, 3/ 
EX,RHWTTH GOS, L7XelLOP LO, 3S/IKeTHAITH Styl TXp10F10, 3/ 
{XelBCLOHeweeeekeaee)) 
7970 FURMAT (LAM TOTAL USEDS,19X,10F IN, S7EX,OHAT Fit, 19x, 10F40,8/ 
' 12H AGATYST GLEplOX,VOF IO, 3S S9X, SHG2R A LIXLOF IO, 3 
2 BX, SHWE IIOX SLOP LOLS SOX, SHW2E, TIX, LOF LO, SIX, SMW Ste LOK, LOFI0, % 
3 IX BHw See LOX, LOP LO, 3/9X%, BHwSE,19X,L0F IO, 3// 
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OOOO AYIHYD 


R000 


RUL0 
R020 


2 TR c3 


8030 


aAgmNaAoO 


8035 


s OWPNwWTF ACL 


OX s5HAT F2E,19X,10F19, 3/12H AGAINST Gitrel9X,10F 10,37 

WX, BHGAreL IX SLOP LOL 3/9X, SHWE, LOX, LOF LO, S/S9IX, SHOE, LOX, {OFLO,3/ 
BK oe BHHse VIKA, LOF LO, 3/9X%, BHM OE, LOX, L0F 10, S/9X, SHWSE, 19K, TOF LO, S/ 
JOX,OHAT F3E,19X,LOFIO, S/12nN AGAINST Gibbs l19X,10FI0,3/ 

DX SHG2t re LIKALOFLO,3/9X, SHH1E LIX, LOF ILO, S/IK, SMHOE Gy IIX, LOR ILO, 3/ 
DX BHR BEA, LIXALOF LO, 3/9X, SHWUE LOX, LOR LO, S/IX,SHW5 Ey LOX, {OF IO, 3/ 
1X ,1 301 OHaka ee eee) +) 


RARER EKER ERE REE 


* * 
* R FACTOP TABLE * 
* * 


RkKKAKKAKE KER RK 
INTTYIALIZE LOC4L VARTARLES 


OM RNAN ysi,3d 
09 ROlO Jst,32 
X(J,1)s0,0 
TIME(T)20,0 


DO FOR UP TD TEN DATA SETS 


Of BOSO Pet. 10 
DN RO3N YK JSLe,NCV 
VDOATACYK J) SDVACIKI) 


COMPUTE THE DESTRED DISPLAY VARIABLES FROM THE 
APPROPRIATE DATA, 


TRME GY PST 
X(2,T)SANU0IP (NOS) 
X(3,7)2A0002P(1,N,8) 
X(U,T)SANUO2P(C2eNeS) 
X(S,T)2ANuUn2P(3,N,8) 
K(6,TEADUO2P(4,N,S) 
X(7,7£A0U02P(5,N,8) 
ACRTVEAOB2IP CL ONG S) 
X(9,T)£A0321P(2,N,S8) 
XC10,T)EA0321P(3,N,8) 
XC11,7T)240301P(1,N,S) 
X(1LP,TISAOBNIP(2,N/S) 
SS=3eS 
XO13,TISEVINGIF EN, SS) 
OF ROSS KE2,J2 

PCL eLIUSL OC. Lex Cer Ll) 
K(1G,T)2xK093,1)*xX (1,1) 
X(16,T)sA0U0{P(N,SS) 
XO17,T)Fanu02P(1,N,SS) 
X18, TyEAnuaP(2,N,SS) 
¥(19,7T)#anu0eP(3,N,SS) 
¥(2%,7)8ANU02P(4,N,SS) 
K(21,T)£A9u92P(5,N,SS) 
X22, TYPANZ2YP(1,N,SS) 
X(23,T)2an32yP(2,N,S8S) 
X(24,7)2A0321P(3,N,SS) 
X(25¢T)24N3Z0{P(1,N,S39) 


X( 2607) =40301P(2,N,S8S) 
X(C27T,YISVINGIFOEN,S) 
AO AOCVBK K2e}{b,2b 

BOSH KC1S,2ISKC15, 7) +x(K,1) 
xf2R,TIExX(15,1)#x(27,71) 
X(29,T)=x(28,T)9x(1b,T) 
KCO3O,TIEX(2B,T)+x(1U,T) 
XC3I,TISNIVINE(X(29,1),x%(30,1)) 
X(32,7)ECOBOIP(N,S) 


REAN FRIM TAPE3 A NEW DATA SET CORRESPONDING TO THE NEXT 
TIME POINT, WHICH IS INOTCATED BY THE CURRENT "CARD TYPE" 
PARPAMETER, (NITF3 NEW VALUES IN "VA" AND "Bvary 


aI 


IF(TT.GE.TEND) GO TD 8060 

IF(S*TALNE.1,0) GO TO 8050 

DD ANUO YK JEy,INTYV 

IFCTT. GEL,TEND) GD TD 8060 
BOUO REAN(%3) TT, CXCOEF CJ ep JE1,NIVAP),SwT2(1),SaT2(2) 
ROSO REAN(3) TT, CXCDIEF CII» J=Et,NOVARY,SHT2(1)pSwT2(2) 


GENERATE THE RELEVANT PRINTOUT TABLES FOR UP TO TEN 
TIME POINTS, 


onan 


R060 WRITE (6,8910) NeSIDE(S), (TIME (KY, KE1,10),0C(XCI gS) ep JE1,90) 2,751,143 
WRITE (66-8920) CCXCI,J),J21-10),1215 32) 
69 TO 2000 
BOLO FURMATCIHKY//21X,174R FACTOR AT FRONT,TieSXKeALO////5H TIME, 26X, 
LOEB LY, CXISIN pL SC {Okeke keneeee) / 
1SH TOTAL Gi LOSS%2,16xX,10F10,3/ 
164 LOSS DUE TO Git,15%,10F YN, 37 
{3¥,BHW12,15X,10F10,8/ 
13¥,3HWPE,15X,10F10,3/ 
15X75 SESS {VS%e S010, 37 
13Y¥,3HWuL,15X,10F10,3/ 
13x, 3HeSt,15X%,10F10,%/7 
13X, HAS ,15%,10F10,3/ 
13¥,3eA03,15X,10F10,3/ 
TSX, SHAS ISE LORLIO, 37 
$3N,34L98,15%,10F10,3/ 
Y3BX,3HL2G,ISX,IOFIO,3// 
114 TOTAL #612,20X,30FI0,3// 
P44 TOTaL LOSS * TOTAL #619,7X,10F10,3//7/) 
R920 FORMAT( 16H TOTAL #61 LOSSt,15xX,10F10,3/ 
16H LOSS DUE TO G18,15¥,10F10.3/ 
1BX¥,3KW4t,1S5SX,10F10,%/ 
(BV, %HwOe, 15%, t0F10,3/ 
13X,3HM3E,15X,10F10,3/ 
13, 3HWUt,I5X,10F10,3/ 
13X,3HWS2,15X,10F10,3/ 
1B¥, SHAH, 1SX,10F10,3/ 
13%, 3HAPT,15X,10F10,3/ 
13%, 3HAZE,15%,10F10, 37 
(S¥,SRE1E, ISX, 10F 10, 57 
13%, 3HL Os, 15X,10F10,3// 
104 TOTAL Git,21%e10F19,3// 
PuH TOTAL #LOSS # TOTAL Git, 7X, 10F10,3/// 


verre OVPwAIFrHee eno weswv- 


ee OPyF Feo e £€ w= 


285 


{ 20H PRONUCT DIFFERENCES,11X,10F10,3/ 

2 13H PRODUCT SUMS,1B8xX,10F19, 37 

z {GH NIFFERENCE / SUME,13X,10F10,3// 

u YOH RB FACTOR, ALK, IOFIO  S/IX, LS (LOH aeaakennen) ) 
ENO 
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PROGRAM GRAPHC2CINPUTSDUTPUT, TAPESSINPUT, TAPEGZNUTPLIT, TAPE 3, TAPER) 


PLOTTER DRIVER RIJUTINE = RETRIVES AND BUILDS THE PLOT 
TOENTIFICATION HEANERS AND RUN DESCRIPTIONS «= 
LOCATES THE DESIRED START POINT ON THE HISTORY TAPE e 
THEN CALLS THE APPROPRIATE SUBROUTINES TO PLOT THE 
GRAPHS, 


anrAaaanIna 


COMMON /RUFFS/ A(B),B (RS 
COMMON ZPNTR/TIPCLO00), LABEL (7,109) + SYMBOL CL4) +, YOVPNT(2000),SP, 
{IVPNT(3240),Z(64B80) 
CIMMOIN STLIMIT/S TMING TMAX, DATE »DOTINER 
COMMON /PAVV/ DV(3240),V( 3240), TITLEO( 6) 
COMMON /DVV/NVAZNDV 
DIMFNSTON SWT2(2),XCOEF (1685) 
COMMON STMCAS CNTNTSCLOO,I7S,FENABLE 
CIMMON /STACB/ INDEX,INK2 
DIMFNSTON x(135),YC135) 
DIMENSTON P(20) 
DIMFNSTON 9(10),70(10) 
DTMENSTAN TIMER( 300) 
LOGTEAL Last 
DIMENSTAN TITS(3) 
DIMENSIMN RUNER(2) 
DATA PYUNERsSIOAYQUN INFORM, VOHATION / 
DNATA NV/3236/+NOV/S9ISO/S NXE/1 ROS 
HATA LaS? 7 FALSE, 7 
DATA NEP /SSo/s 
DNATA TITS/1{OHPUN DESCRI,LOMPTIONSG +10# / 
DATA SYMBOL /1HA,LABeL HC, IAHO SHEP LHF, LHC, LMR LAY LAI p PHL SM, THN, I 
{40/7 
SATA P/20e ie / 
1 = 6 
INDEKsS6 
INX2=0 
ENARLE&0 
REWIND 3 
WRITE(4,U%0) 
REAN(3) AMODEL 
IF CAMMOFL ED, ONARTILLERY) GOTN 1000 
TFCAMINFL ES, SHATR) GOTN 900 
WRITE (4,350) 
sTae 
900 CONTINUE 
NV = 1252 
NOV = TOR 
NXC = 7A0 
1=0 
1000 Yelet 
REAN(3) CONTNTIS(154)0%51,8) 
IFCCNINTS(Te1).NEe34END) GI TA 1000 
REAN(CS) TITLED, DATED, TING DELT,ERRIP,DTTNERPDTOUTR,TSTART, TEND, AL OWA 
LENT © fT € 2 
CALL XMATE (DATE) 
Nb = 0 
CALL LOHPTROETITLES, 3UM,§,9ATE, @20,60) 
ENCODE (€20.100/P) TYNC 


OarIMnan 


1020 


1030 


1049 


CALL LOHPTR(D,RUNER,1S,DATE,NL,S5S) 

ENCODE (€20,1601,P) DJELT 

CALL LCHPTR(P,2UNFR,15,94TE,NL,5S5) 

ENCODF (€20,102,°) ERROR 

CALL LCHPTR(P,RUNFR,15,94TE,NL,55) 

TFCAMIDELLEQ. 34AIR) GOTM 1010 | ; 

REAN(3) TIME, CXCOEPCIV,TSIL¢NXCI,(VET I - TAL eNVI oe (OVOIT), TeisNDV), 
SwT2(1),SwT2(2) 

G9TN 1015 

CONTINUE 

REAN(3) TIME, CXKCOEFCI), TSI eNXC)-CV(T oe TELeNV) oe (COVOIT),TELe¢NDV) 

CONTINVE 

ENCODE (20,103,P) DTINER 

CALL LEHPTROP,RUNER,IS,DATE,NL,S5S) 

ENCNDE (2e0,1048,P) OTOUTR 

CALL LORPTR(P,RUNER,15,94TE,NL,55) 

ENCODF (20,105,°) TEND ‘ 

CALL LOCHPTRO(P.,RUNER,LS,NATE,NL,55) 

ENCMDE (20,106+P) DATEO 

CALL LOHETR(P,RUNER,IS,SATE,NL,SS) 

TMIN = TSTART 

TMAX s TEND 

1=0 

N[ 20 

NTIMES=! 

CALL LOHPTR(ITITS,RINER, 30-D4TE NL» 255) 

NTYIMESSNTI MESS] 

TsI¢! ; 

IFCONTNTS(1e1),E0,34END) GI TO 1040 

WRITE CU/UN0) CONTNTS(T,K),KE1,8) 

IFCNTIMES,GE.25) GI TD 10?70 

G3 TO 4030 

CONTINUE 

REAN (5,109) A 

IFCACSI,NE,SHTLIMIT) GO TN 2000 

DECNDE(26,1072AC2)) THIN, TMAX 


WHEN THE TIME LIMITS ON THE CONTROL CARD ARE QUTSIDE THE 
TIME LIMITS ON TAPE3, GIVE A WARNING MSG AND REARDER THE 
IMPROPER TIMES (TMIN AND/OR TMAX) ACCORDING TO THE TIME 
RANGE OF THE "COMSAT IT® RUN (TAPES), 


IF(TMAY,. GT, TEND, JR, YMAX.LE,TSTART) GITD 2010 
GOTN 205 

WEITE(U,U{O) THAX, TEND 

T¥AX = TEND 

IF(TYIN- GE TEND, DRLTMIN LT, TSTART) GITO 2020 
BITA 2025 

WPTTE(U,UPH) THIN, TSTART 

TMIN = TSTART 

CINTINUE 


REAN (5,100) A 

CINTINUE 

REAN (5,409) B 

ENCIDE(20,1319°) TMIN 

CALL LOHPTA(D,RUNER,15,P47TE,NL,55) 
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2050 


2100 


2205 


2150 
2200 


2210 
pars 


2300 


2400 


2800 


- 


ENCODF(20,110+°)TMAX 

CALL LOHPTROIP,RUNER,YS,DATE,NL,55) 

CALL LOCHPTR(TITLEO¢DUM,1,DATE, =80,60) 

INDE X=EINNE xe] 

CNINTSCINDEX,1)=4(1) 

CNTINTS(TNNEX,7¢9)=S8(1) 

SWy soy 

CONTINUE 

IFLEAST) Go FO S700 

99 Pi0s k=4,1000 

TOP (K.=20 

IDVPNT CK )SETOVPENT(KO1000)20 

IVPNT(KIETVPNT(Ke1000)=0 

ZOKIS7TECKEIONOIEZ (Ke 2000S EZ( Ke S000 EZ (K44000)=0 

CALL TNPUTR (LAST) 

NPLAT |= 0 

N ¢ Q 

REWINA & 

DW 2950 LSierevn 

REAN (3) nYUM 

CINTINUE 

CONTINUE 

TFCAMIHEL, FO, 34A4IR) GOTT 2210 

READC3) TIME, CXCDEP CI), TSLANXC)-CV(T),TE1 NVI DP (COVETI Tei eNDV), 
SwKT2(1),ShHT262) 

GATA 2215 

CONTINUE 

REAN(3) TIME, (XCDEFC ID, PSs eNXCIeCVCT)eTEH1eNV)-(OVOIT), 121 -,NDV) 

CONTINUE 

IFCEDF(¢3))2400,2300 

CONTINUE 

IFCTIME.SLT.TMIN) GITO 2200 

TFCSWT.E0.1) TYIN & TIME 

Sey £6 

N = No} 

TIMER(N) & TIME 

CALL SFTLIIPR(N) 

Te ChIME Lt. tha) GH TO ceo 

CONTINUE 

CALL PREAD(NP,e1) 

IF (NPENLO) GO TO 2100 

NPLOAT = NPLOT+! 

Y4IN = 9, F S06 

YMAX = m4 F200 

ND PROO JetsnP 

CALL BREANA(Ls!1) 

IF (CZ(Leei LT. YMIN) YMIN & Z(Leo2) 

TF C7 Chel) Gt YMEX) YMAN © ZU ets 

CONTINUE 

IFC CYMAXeYMINILT.1,0) YYAKEYMING{ 

CALL PLATRITYIN, TMAXSYMIN, YMAX,X,Y,NPP,| ABEL 

CALL RRFAN(L,O) 

99 300N T=eq,NP 

CALL BREAD (Lol) 

CALI SETLIPCT¥IN, TMAXN,VYUTNAYMAX,N, Ff 

CALI PLATRE(T¥IN,TMAXeYMIN, YMA, K,Y, 


‘pO-A052 025 BOM CORP MCLEAN VA F/@ 15/7 
COMBAT=II USER'S GUIDE. (U) | 
JUN 77 BP AYRES? S BRADY? F L KLOTZ DNA001~76=¢~0067 

UNCLASSIFIED BOM/W-77=310-TR DNA-4346F 


END 


he 


ll (QO % We WB 


22 
==... i 


tt le yg 
ee U8 


ZS LA Wes 


MICROCOPY RESOLUTION TEST CHART 
NATIONAL BUREA § STANDARDS -1963-, 


3000 


3200 


420 


430 


CONTINUE 

CALL PLATRETMIN, TMAXAYMING YMAX,X,Y,NPP/LAREL(LPNPLIT), DATE, +4) 
CALL RRFAMCL,O) 

CALL TITLESC(A,0) 

NL = 0 

NPQ S&S NPo! 

CALL LOHPTROITITLED9/9UM,1,DATE, 130,60) 
09 3290 Je1e9 

CALL BREAN(L.1) 

CALL TITLESCAl1) 

ACJVSACN) 

TACI)D = L 

CONTINUE 

ENCMDE (139,300,P)0 : 

CALL LOHPTR(P,LASEL CL +NPLOT),70¢DATEsNL» 55) 
D9 3500 Jsten 

Ori) = TIMFR(S) 

DO Sung KaP,450 

L = IN¢Kel) 

QO(K) £ Zl eJe!) 

CONTINUE ; 

CALI. LOHPTR(P,LABELUL+NPLOT) + 70¢DATE NL 259) 
WRITE (6,307) (Q(K),KS1,NPO) 

CONTINUE 

67 19 Buon. 

WRITE (U,9R) 

9 3800 KEd,+ INDEX ; 

WRITE (4,99) (CNTINTS(KeJ),J21,17)9 

STOP 
FORMATCIHY/21X-*TABLE OF CINTENTS#///) 
FORMAT (HX,R8410,5X,4SPAGE,FB,0O/21K,BA10/) 
FURMAT(KTINCG =*F10,6) 

FORMAT(#eNE;LT =*F10,6) 

FOURMAT(#eERE TR =*F10,6) 
FORMAT(#OTINNER S#F10,6) 
FURMAT(IOHDNTOUTR =eF10,6) 
FORMAT(YOHTEND =eF10,6) 
FORMAT(LOHRUN DATEDB,AI10) 

FORMAT(2F10,6) 


FIRMAT(RAIN) 

FORMAT (aTMAX =F 10,6) 

FORMAT (&TMIN =*F10,6) = 
FIURMAT(# TIME ®,9(3XA10)) 


FURMAT(F{%,2,9(F13,6)) : 
FIRMAT(////% UNRECIGNIZED MODEL TYPE INCORRECT TAPE3«a///) 
FORMAT (1X/21x,8410) 

FARMAT(///e WARNINGI,,,”AX TIME ERROR CORRECTED#,5X, 

4 *#CONTROL CARD MAX TIMES RFUO,2/U1K, 

2 wTAPFZ MAY TIME SH) IX,FIO,2///) 

FORMAT(///u WARNING!],,,MIN TIME ERROR CORPRECTED«,5X, 

1 *CONTROL CAPD MIN TIMESR FIO, 2/4U1X, 

2? TAPE MIN TIME Ghee TXeFL0,2///) 

FARMAT(YHS) 

END 


aaaa 


2000 


2200 
2300 


2600 


3000 


3200 


400 


-_ 


{ 


SUBROUTINE PLOTR (CXMING XMAN/YMTN, YMAX ZX, Ve NeL ABEL p DATE, 4) 


CALCULATES THE SCALING DF THE GRAPH AND PERFORMS THE 
ACTUAL PLOTTING OF THE PNINTS 


COMMON /TICA/ CNTINTS(109,17),FNABLE 
CUMMON /TNECR/ INDEX, INXS 

COMMON /PNTR/TIP(1000),SABEL (7,100) + SYMBOL (14) /TDVPNT(2000) SP, 
IVPNT(3240),7(6480) ; 
DIMENSION ¥CU)¢YCLIOLABELCLI+/PLATC101-51),XS(6) 
DTMENSTON §(5151) 

DIMENSION HUMMY (20) 

ENUTVALFNCE (SPLOT) 

DATA PLOT/SIS1i#14 / 

DATA DUMMY /20Ke1m / 

TF (MY 20NN, 300,400 

CONTINUE 

NP = } 

XSCALESLON, /CXMAK@XMING 

YOITF2I00 

TF CYMAX NE,YMIN) YOIFEYMAXwYMIN 
YSCALESSO./YNIF 

TF(A,O GT. XMAX, IR, O.0.LT,XYIN) GO TO 2300 
1D = 1,5=¥4TN*eXSCALE 

DN 229 Jeted! 

PLOT(IO.J) = !HT 

CONTINUE 

CONTINUE | 
IFCOLOLGTCYMAX,OR,O,O,LT,YMIN) RETURN 
JO = §,SeYMIN*YSCALE 

D1 2690 y21,101 

PLOTC(T,JN) & fHe 

CONTINUF 

RETURN 

CONTINUE 

SYM = SYMROL(NP) 

DY 3200 Y s1,N 

XD = X(T) 

YP = Y(T) 

TF (XMIN ET XP LIRXMAX LT, XP, IR YMIN, GTeYP,OR,YMAX LT. YP) GO TO 
3200 

TP = 4. Se(KPeX4IN)RXSCALE 

JP s 1, Se (VPeYMINI HYSCALE 

PLOT(TP,JP) = SYM 

CONTINUE 

NP = NBe]{ 

RETURA! 

CONTINUE 

NL © 9 

ENARL Fs] 

INX?PSTINKX Co] 

CALL LOHPTR (DIMMY,LABEL,70,NATE,NL*S5) 

ENARLE sO 

WRITE (6,100) 

DVYS(YMAKeYMIN) &,2 

Y. = YMaXx 

CALL TITLES (4,0) 
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4200 


u4oo 


46.0 


4Bn0 


100 
104 
102 
103 
104 


DON 4400 T21-51-10 

K=eSPpe! 

CALL TITLFSCA,IT) 
WRITE (H,VOSVASY Ie CPLOT(CS,KI,J=10101) 
IFC(T,E9.51) GO TQ 4400 

K1 2 Jel 

Keste9 

DO 4290 KKsK1, Ke 

LeS2euekx 

CALL TITLES(A,1) 
WRITE (6,102) AsC(PLITCJ,LI,J=1,101) 
CONTINUE 

YD = Yneny 

CONTINUE 

WRITE (6,103) 

OX = (XMAXeXMIN) #2 

xO = XMIN 

DY 460M Jelrb 

xS) OLY i] Xo 

xO = X9eDy 

CONTINUE 

WRITE (6,104) XS 

Of ubOO J21,5151 

S(I) = {iH 

CINTINUE 

RETURN 

FIURMAT(25Y,51(2Hee) pL Me) 
FORMATCIX,ASOr IX, ELS bp 1He,10SAL, ie) 
FURMATCIX, ALO, LEX, LHR,INLAL, LHe) 
FORMAT( 25 X,AHe]L  S( 20K kk akeeaekaeeceweeeny])) 
FORMAT(9X,6620,6) 

END 
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SUBROUTINE SETUPR(N) 


CALCULATES THE PXSITIIDN JF THF CURVE POINTS AND 
TRANSFORMS THE DATA PRIAR TH CURVE SMOOTHING 


aann 


CIMMON /PAVVY 9V(3240),V(32U0),TITLED(6) 

COMMON SPNTR/STOP(1000),L ABEL (7,109) ¢SYMBOL (14) ,TDVPNT(2000),SP, 
1{IVPNT(324UN9,7(6480) 

COMMON /DVV/NVENDV 

99 2200 J=ef,NnV 

M = ITVPNT(Y) 

IF(M,EQ,9) GD TO 2200 

ZfMeNey) = V(T) 

IF CVCY).LT270492)) ZlMe2) = VO 
IF (V¥VCT),GT.~Z(4%91)) Z(Mel) = VO 

2200 CONTINUE 

DY PUNO JeyeNDV 

MEJOVPNT(T) 

TF (M,FQO.9) 69 To 2400 

Z(Mé#Net) = OV(J) 

TF COVESYLT,Z0M@2)) ZEMe2) = DVEI) 
IF (DOV(J),GT.Z0Mo1)) Z(Mes1) & OV(J) 

2400 CONTINUE 
RETURN 
END 


) 


I 
1) 


SUBROUTINE BREAD(TALPA,) 


BUIIDS THE LABELS FOR THE GRAPHS 
AND THE SCALES FOR THE AXISFS 


aonraqa 


COMMON /PNTR/TIP(1000),LAREL (7,100) + SYMROL (14), TOVPNT(2000),8P, 
LIVPNT(3260$,7(64B80) 
DATA T /1/ 
IF (*) 2000-2600,2200 
2000 CONTINUE 
TALPHSTARS(IOP(T)) 
N = YTALPw 
ne ft 
J=i 
Ks { 
I= Tened | 
IF (N,FALN) FY FY 
RETURN 
2200 CONTINUE 
TF (J.GT.LN) RETURN 
Lo = roerses7o) 
IFCL.LT.0OY GO TO 2400 
TALPRX = IVPNT(L) 
Jos Jet 
RETURN 
2400 TAL PHSTDVPNT(eL) 
JeJ+4 
RETURN 
2600 CONTINUE 
Je} 
RETURN 
ENTRY TITLES 
TAL PH © {HN 
IF (4) 2000+3400,3000 
3000 CONTINUF 
TF (KGT,N) RETURN 
L © I9PtKe10) 
IF (L.LT.9) GO TO 3200 
ENCODF (€10,10%,TALPH) L,SYMROL EK) 
K = Ke] 
RETIJRN 
3290 CONTINUE 
&. (= et 
ENCNDF (19,100,T4LPH) LeSYYROL (CK) 
kK S&S Ke] 
RE TIIRN 
34900 CONTINUE 
«es | 
RETURN 
100 FORMAT ( HeDV(*7Ue) #AS) 
1901 FORMAT(e Veeydnx) wal) 
END 


SUBROUTINE SETUP CTMIN, THAX, VMIN, VMAX pNp Wp Xe Ve NP) 
PFRFIQMS THE ACTUAL CURVE SMONTHING AND SCALING OF THE DATA 


DIMENSION VO1)eX(1) 0099 
DATA NT/YN07, NV/S5S0/ 
SCTENTs/(TMAXeTMIN) 
SCVENV/(VHMAXeVYIND 

SET? = SCT«SCT 

Scv? = StveStv 

OT s (TMAXeTMIN) /(NOL) 
T2 £ OTHKNT 

DT2ESCYT |= HTPeSCT2 

NN s Nel 

S? € 0.6 

DN 2000 Ts 1,NN 

$2 = SART((V(T41)@VO1) )ex2eSCV2eDT28CT)4+S2 
CONTINUE 

DSeS2/(NPeo}) 

TT) = TMIN 

280 = 48 

yey) VCs) 


x(1) = 10 
K 3 2 

i.e ¢€ 
CONTINUE 

T1 = TO*DT 

DSi = SART((V(T)@V( Tel) )ee2eSCv2edT2SCT) 
IF (080,GT.0S1) GO TO 2400 


FRACT = OS0/DS1 

X(K) = TO*FRACT#DT . 
Y(K) ©& VC Tel eFRaCTa(V(T)ev(leaqi)) 
K S Ke] 

NSO = 9S$0+9S8 

IF (K,GYT,NP) RETURN 

GO TO 2200 

CINTINUE 

DSO ©& pS0enS} 

T = [44 

™m = Ty 

69 TO 2100 

END 


eee — i 


SUBRDUTING INPUTR(LEDF) 


BRINGS IN THE CONTROL CARDS ANS CLEARS THE BUFFERS AND 
WORKING VARTABLES PRIOR TN SETUP FIR THE NEXT GRAPH 


aAnaqa 


COMMON /OVV/NVANDV 
COMMON STLIMTT/ TMING TMAXSDATE 4DT 
COMMON /RUFFS/ A(8),B(8) : 
COMMON /TNCAS CNINTS(1I00,17),ENABLE 
COMMON /STNCAS INDEXSINX2 
DIMENSYON JDP 14) 
COMMON /PNTR/TIP(1000),LABEL (7,100) /SYMBOL(14),IDVPNTF2000),S8>P, 
1 TVPNT( 3200) 0706480) 
RFAL LAREL 
LOGICAL LFOF 
LOGTCAL LBUFF 
DATA LRUFF /,FALSF,/ 
IPNY = 3% 
KOOP = { 
K@ = 0 
Nos (TMAX RIMINI /DTOI,5S 
DA 2000 T=40NV 
TVPNT(T) = 0 
TOVPNT(T) = 06, 
2000 CONTINUE 
69 TO 260 
2200 CINTINGUE 
REAM (5,390) A,B 
IFCFOF(S)) 2400,2500 
2400 CONTINUE 
LEFOF = , TRUE, 
RETURN 
2500 INDEXSTNHE xe] 
CNTMTS(TNNDEX,K)=A(K) 
2300 CNTINTIS(INDEX,K49)28(K) 
2600 CANTINUE 
DECODF(70,193,B(2)) JOP 
OD 7659 keteid 
IFCJUPECK).E9,0) GO TO 2669 
2650 CONTINUE 
Keita ' 
2560 TFC (TOENTeKe(N42)),67,5000) RETURN 
«IPS = KNP 
99 3000 xs 1,14 
L = JNPC(K) 
IF (L,E%,0) GO TO 3000 
KAP = KAPS+] 
TF (KID GTL1000) RETURN 
IMP (KAP) © L 
IF(L.«LT.09 GA TN 2700 
M = JVONT(L) 
TE (MNF) 69 TO 3000 
IVPNT(L) © JPNT 
69 TO 2800 
2700 Le» 
METAVPENT(L) 
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2600 


3000 


3300 


190 
101 


IF(M,NE.0) GO TO 3000 
INVENT (LI STONT 
ZO(IONTe2) 21,6 4200 
Z(ITPNT@e1) = 01, £4200 
TPNT = TPNT#NGe 
IFCCTONTHNS .GT,6482) RETURN 
CONTINUE. 

IMPEKIPN) = KOPeKNPD 
KOOP = KNP 4 

KC s Kee! 

DN 3300 152,58 
LABEL (re1,«C) = ACT) 
CONTINUE 

69 TO 2200 | 
FORMAT(BAI0) 
FORMAT({UTS) 

END 
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